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A.  PURPOSE  OF  PROORAM 
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GCS  is  a general-purpose,  device-independent  computer  C"°rhi PQr^ 
to  the  user.  

Graphics  Compatibility  System  (GCS). 

\ Primer  on  Computer  Graphics 
\ Programming.  Programmers  Reference 
\ Manual.  
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• . PROGRAM  SPECIFICATION! 


GCS  is  a collection  of  MSI  standard  FORTRM  subroutines  invocable  by  a user's' 
FORTRM  program. 
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GCS's  capabilities  range  over  a powerful  set  of  functions.  It  can  produce  a 
simple  line-drawing  (with  over  hO  types  of  lines),  or  handle  comprehensive 
general-purpose  axis-creation  and  automatic  clipping;  ARC  and  Conic  generation; 
graphics  input;  drafting  multilevel,  secondary-coordinate  system  definition 
and  characters;  and  italicized  software  characters.  All  plotting  and  other 
positional  output  can  be  done  in  the  user's  own  units  without  his  having  to 
know  anything  about  the  specific  nature  of  his  terminal. 


O.  EQUIPMENT  DETAILS 

GCS  is  operational  on  the  Honeywell  635  and  supports  the  Tektronix  UoiOAOlL, 
Computer  U00/15,  IMLAC  PDS-1D,  TSP  Analog  pen  plotter,  Datapoint  3300,  and 
alphanumeric  printing  terminals.  Nationwide  field  testing  has  included,  or 
will  include,  such  equipment  as  the  Univac  1108,  IBM  S/360-370,  DEC  PDP  10, 

HP  3000,  and  CDC  3500  and  6000  series.  A tape  must  be  provided  by  interested 
parties  if  a copy  of  the  GCS  system  is  desired. 


Input-Output  is  accomplished  by  invoking  GCS  subroutines. 
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Manuals  available: 


1.  Primer  on  Computer  Graphics  Programming . 
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THE  QC8  RESEARCH  AND  DEVELOPMENT  PROJECT 


The  traditional  forms  of  computer  output  — vast  piles  of  densely  printed  computer 
listings  — often  leave  managers,  engineers  and  students  confused  and  frustrated.  Often 
the  information  one  wants  to  know  is  somewhere  in  the  computer  output,  but  not  in  a 
form  wherein  the  user  can  find  what  he  wants,  understands,  or  can  easily  assimilate. 

For  years  the  computer  field  has  looked  forward  to  breaking  this  bottleneck  in  computer- 
human  communications  by  using  pictures  instead  of  printouts.  The  idea  is  not  new.  The 
first  stored-program,  electronic  computer  ever  designed  had  in  its  initial  design  an 
osciliiscope  which  was  supposed  to  give  graphic  displays  of  the  solutions  of  the 
problems  it  was  to  solve.  Working  two-way  man-to-computer-to-man  graphic  commu- 
nications dates  back  at  least  10-20  years  to  the  early  Cape  Cod  and  SAGE  Air  Defense 
Systems  and  Ivan  Sutherland's  early  SKETCHPAD  system.  Yet,  even  today,  the  amount 
of  graphic  output  that  most  computer  users  ever  see  is  limited  to  a fev  crude  barcharts  of 
graphs  produced  on  computer  printers,  or  possibly  a pen-plot  made  with  an 
electromechanical  plotter.  Everyone  knows  about  computer  graphics  — but  very  few 
actually  have  it,  and  even  fewer  make  good  use  of  it  in  their  normal  day-to-day  work. 

Computer  graphics  has  been  too  expansive.  The  hardware  has  been  expensive  but,  far 
worse  than  that,  the  software  has  been  actrociousiy  expensive.  It  has  been  expensive 
not  only  in  initial  cost,  but  also  in  its  tendency  to  be  both  highly  specialized  and  highly 
machine-dependent.  Only  specially  qualified  assembly  language  programmers  could 
work  on  it  and  it  would  work  on  only  one  machine.  Obviously  there  were  exceptions  to 
this.  Much  of  the  great  acceptance  with  pen-plotters  received  in  recent  years  came  from 
the  fact  that  they  permitted  the  use  of  FORTRAN  subroutines  which  could  be  used  by 
run-of-the-mill  FORTRAN  programmers  to  plot  simple  axes,  graphs,  etc.  The  more  recent 
success  of  the  TEKTRONIX  storage  tube  terminals  has  also  been  greatly  influenced  by 
the  fact  that  reasonably  good  user-accessible  software  is  available  for  such  devices. 

Today  we  are  in  a period  of  rapid  improvement  in  availability  of  practical  computer 
graphics.  Timesharing  is  bringing  the  computer  out  of  the  warrens  of  the  computer 
center  and  into  the  offices  of  engineers,  managers,  classrooms,  academic  buildings,  and 
even  the  dormitories  of  academia.  Timesharing  started  out  with  printing  terminals,  like 
the  teletype,  but  the  era  of  timesharing  graphics  is  fast  approaching.  LSI  and  MOS 
technology  are  making  the  minicomputer  and  even  the  microcomputer  increasingly 
attractive.  Minicomputer-based  special  purpose  graphics  systems  are  now  very 
successfully  paying  their  own  way  in  a number  of  tasks  such  as  in  the  layout  of 
electronic  circuit  boards.  Coupled  with  small  mass  storage  devices  such  as  discs,  or 
even  in  some  cases  cassettes,  minicomputer-based  graphics  systems  have  considera- 
ble capability,  in  spite  of  serious  software  limitations.  Today  they  seem  ready  to  burst 
out  into  widespread  use.  Perhaps  the  most  exciting  possibility  of  all  is  the  intelligent 
terminal  connected  by  a communications  link  to  a timesharing  or  other  large  computer 
system.  In  such  an  environment,  the  software  advantages  of  the  large  system  and  the 
hardware  advantages  of  the  small  system  can  complement  one  another,  and  can  — 
potentially  at  least  — gain  the  advantages  of  both. 

But,  enough  of  the  past  and  the  future.  What  can  GCS  offer  today  to  the  typical  user  — 
e.g.,  a routine  FORTRAN  programmer  at  an  installation  which  has  a limited  amount  of 
money  to  invest  in  graphics? 

4he  USMA  Graphics  Compatibility  System  (GCS)  is  a FORTRAN-based  computer 
graphics  system  designed  for  interactive  use  on  a wide  variety  of  computer  graphics 
terminals.  Due  to  Its  comprehensive  and  modular  design,  GCS  provides  a simplified 
easy-to-learn  and  easy-to-use  approach  to  computer  graphics,  while  simultaneously 


providing  a powerfull  tool  which  the  sophisticated  programmer  may  use  for  demanding 
and  highly  interactive  graphical  applications.^ 

GCS  provides  compatibility  at  two  distinct  levels: 

A.  Cross-compatibility  from  one  computer  systems  to  another;  and. 

B.  Cross-compatibility  between  computer  graphics  terminals. 

Cross-compatibility  from  one  computer  to  another  has  been  achieved  by  writing  ail  GC8 
software  in  FORTRAN,  with  emphasis  placed  on  strict  adherence  to  the  specifications 
established  by  the  American  National  Standards  Institute  (ANSI). 


Cross-compatibility  from  one  terminal  to  another  has  been  achieved  in  a manner  which 
is  completely  transparent  to  the  user.  One  need  no  longer  be  concerned  about  the 
problems  of  "tailoring"  his  programs  for  a given  graphical  device  — GCS  provides  the 
maximum  capabilities  offered  by  the  various  terminals  in  order  to  satisfy  the  user's 
graphical  requirements.  Device  independence  provides  the  user  with  the  option  of 
preparing  and  debugging  his  graphics  program  on  a terminal  other  than  the  type  he  may 
desire  for  final  output  — a consideration  of  paramount  importance  for  installations  which 
may  have  a limited  number  of  graphical  devices  available  at  any  given  time. 

It  should  be  emphasized  that  GCS  is  not  just  another  collection  of  unrelated  graphics 
subroutines  — it  is  a unified  system  which  provides  the  user  with  the  flexibility  to 
perform  his  tasks  at  any  level  of  involvement  that  he  desires.  Because  of  this  unique 
man/software  relationship,  GCS  can  also  be  thought  of  as  "user  compatible,"  and  it  is  in 
this  last  facet  of  compatibility  that  GCS  unveils  its  true  potential.  Individuals  who  would 
normally  dismiss  graphics  for  their  particular  applications  are  now  provided  with  an 
alternative.  High-level,  composite  routines  are  provided  to  perform  relatively  complex 
but  frequently  required  tasks  such  as  the  preparation  of  complete  graphs  and 
histograms.  Flexibility  and  adaptability  to  the  needs  of  the  more  sophisticated  user  are 
achieved  by  allowing  such  a user  to  control  the  various  GCS  options  which  are  present 
to  standard  default  conditions  for  the  unsophisticated  programmer.  Users  of  all 
disciplines  may  feed  equally  comfortable  with  GCS,  since  they  are  required  to  interact 
only  at  their  particular  level  of  graphics  involvement. 


The  GCS  development  was  a response  to  a specific  need.  In  the  winter  of  1971-72,  it 
was  decided  that  the  U.S.  Military  Academy  would  teach  a series  of  courses  to  senior 
R&D  managers  dealing  with  computer  assisted  design-engineering,  with  special 
emphasis  upon  interactive  computer  graphics. 

It  was  decided  that  the  course  would  be  heavily,  hands-on  oriented  and  that  USMA 
would  demonstrate  practical  applications  of  graphics  from  each  Math-Science- 
Engineering  academic  department  area,  programmed  by  a faculty  member  from  that 
area.  It  was  also  decided  that  these  applications  should  be  spread  over  at  least  four 
types  of  graphics  output: 

1.  Printer-plot  graphics  — both  in  batch  mode  and  from  a timeshare  terminal. 

2.  Pen-plot  graphics  — both  interactive  and  non-interactive. 

3.  Static  or  add-on  CRT  graphics  — storage  tube  display. 

4.  Dynamic  CRT  graphics  — refresh  tube  display. 

The  Army  Material  Command  (AMC)  was  to  supply  adjunctive  graphics  equipment  to  add 
to  the  existing  USMA  Academic  Computer  Center  timesharing  systems:  USMA  was  to 
provide  the  teaching  faculty  and  develop  both  the  educational  software  and  the  required 
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computer  software;  the  U.S.  Army  Computer  Systems  Command  was  to  provide  a Liaison 
Officer  who  would  assist  in  the  computer  software  development. 

The  course  was  to  begin  in  July  1972.  The  new  graphics  equipment  would  not  be 
available  until  April  or  May.  Terminal  equipment  would  arrive  so  late  that  programs  to 
run  on  one  type  of  graphics  terminal  might  have  to  be  checked  out  by  testing  it  on 
another  type  of  terminal. 

Tha  academic  department  faculty  members  would  not  be  available  to  work  on  the  project 
until  the  start  of  June.  Most  of  them  were  reasonably  competent  FORTRAN  programmers 
with  little.  If  any,  prior  experience  with  graphics  — but  most  of  them  would  have  time  to 
take  a 6-8  lesson  course  in  graphics  during  their  lunch  periods  once  a week  in  the  spring 
semester. 

In  order  to  meet  this  near-impossible  set  of  constraints,  a system  was  devised  which 
could  be  both  quickly  and  easily  learned  by  faculty  members  with  varied  levels  of 
FORTRAN  experience  (and,  in  many  cases,  no  FORTRAN  experience)  and  could  be  built 
and  checked  out  in  a tremendous  hurry,  using  no  more  than  one  or  two  full-time 
programmers,  with  part-time  assistance  of  half  a dozen  or  so  other  programmers. 

QCS  (Version  1 .0)  was  the  response.  Somehow  it  was  developed  in  time,  it  sputtered, 
wheezed,  ran  slowly,  did  not  have  very  many  sophisticated  options,  and  had  embedded 
in  it  various  pieces  of  proprietary  software  which  were  not  releasable  to  others.  It  was 
well  accepted,  however,  by  its  users.  It  met  the  seminar  requirements  and  was  widely 
used  during  the  Academic  Year  1972-73,  with  a great  deal  of  useful  feedback  being 
obtained.  A year  later,  in  the  late  spring  of  1 973,  QCS  version  2.0,  rebuilt  from  the  bottom 
up,  became  operational.  It  still  ran  the  same  program,  with  occasional  minor  changes 
suggested  by  users  as  human  engineering  improvements.  It  was  faster,  supported  more 
advanced  options,  was  much  more  solid,  and  no  longer  contained  even  the  most  remote 
trace  of  any  proprietary  software  in  its  modules. 

In  October  1 973,  QCS  had  progressed  to  the  stage  that  it  was  ready  to  release  for  field 
testng  by  other  agencies.  As  a result  of  this  field  testing,  some  interesting  and  valuable 
suggestions  were  incorporated  into  QCS.  In  January  1975,  the  U.S.  Military  Academy 
was  no  longer  able  to  support  QCS  and  the  responsibility  for  maintenance,  distribution, 
and  future  development  was  transferred  to  the  U.S.  Army  Corps  of  Engineers  Waterways 
Experiment  Station. 
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CHAPTER  I 


IMPORTANT  TECHNICAL  CONCEPTS  AND  CONVENTIONS 


In  order  to  understand  and  use  a system  as  powerful  and  versatile  as  GCS,  the  user 
should  be  aware  of  certain  basic  technical  concepts  and  conventions. 


Relationship  of  GCS  to  FORTRAN 

The  Graphics  Compatibility  System  (GCS)  is  a package  of  inter-related  subroutines 
written  in  ANSI  FORTRAN.  In  order  to  produce  graphics  output,  a FORTRAN  program  is 
written  to  perform  whatever  computations  and/or  graphics  manipulations  are  needed  to 
produce  the  desired  image.  Embedded  in  the  program  are  calls  to  GCS  subroutines  to 
handle  the  graphic  display  and  interaction,  if  relevant. 

Under  normal  conditions,  all  input-output  between  the  computer  and  graphics  devices 
such  as  plotters  and  terminals  will  be  handled  via  calls  to  GCS  routines,  without 
recourse  to  system  dependent  routines. 

The  programming  conventions  of  GCS  are  identical  to  those  of  ANSI  FORTRAN  except 
that  the  use  of  GCS  creates  additional  reserved  names.  All  GCS  subroutines  designed 
for  User  use  are  FORTRAN  subroutines  beginning  with  the  letter  U.  The  GOS  system 
also  includes  additional  internal  subroutines  not  intended  for  availability  to  users  which 
always  begin  with  the  letters  GCS.  Thus  the  user,  to  avoid  potential  confusion  and/or 
conflict  between  his  program  and  GCS,  should  avoid  creating  his  own  subroutines  with* 
names  beginning  with  either  U or  GCS. 

All  numbers  used  as  calling  parameters  are  passed  to  GCS  as  real  numbers,  even  in 
situations  where  they  represent  integers. 

Graphics  Status  Area  (GSA)  - Preset  Modes  and  Parameters 

In  order  to  keep  continuous  track  of  many  items  of  information  relevant  to  graphics 
activities  such  as  where  the  beam  (or  pen)  is  currently  located,  what  portion  of  the 
screen  (or  plotting  area)  is  currently  within  limits  and  what  portion  is  currently  off  limits 
for  drawing,  what  portion  is  within  limits  and  what  portion  is  off  limits  for  textual  materiic 
etc,  a labelled  COMMON  area  GSA  is  established.  The  GSA  common  block  also  keeps 
track  of  the  user's  current  choice  from  among  the  list  of  available  options  which  define  or 
mode  of  operation  of  the  system. 

When  one  starts  a GCS  program,  the  user's  start  routine  (USTART)  automatically  sets  all 
options  to  a standard  initial  condition:  rectangular  coordinate  system,  absolute  (rather 
than  relative  or  incremental),  plotting  angles  to  be  measured  in  degrees,  lines  to  be 
drawn  routinely  as  solid  lines  without  special  attributes,  etc. 

The  following  is  a sample  program  which  illustrates  the  use  of  the  GCS  package  to 
produce  graphics  output. 

Dimension  x(2),y(2) 

A - 75. 

B - 75. 

X(1)  - 25. 

Y(1)  - 75. 

X(2)  - 75. 


Y(2)  - 25.  COMMENTS 


f 


CALL  USTART 

'A' 

CALL  UOUTLN 

fl' 

CALL  UMOVE  (25., 25.) 

C' 

CALL  UPEN  (A.B) 

D' 

CALL  UMOVE  (X(1),Y(1)) 

'E' 

CALL  USET  ('DASH') 

'F' 

CALL  UPEN  (X(2),Y(2)) 

CALL  UEND 

'G' 

STOP 

END 

COMMENTS: 

A:  The  first  GCS  call  must  be  to  USTART,  a subroutine  to  initialize  the  status  of  the 
system. 

B:  UOUTLN  will  be  explained  in  Chapter  III. 

C;  All  GCS  subroutines  begin  with  the  letter  'U'.  user  oriented,  and  have  easy  to 
remember  names. 

D:  Simple  pen  movements,  visible  UPEN's  and  invisible  UMOVE's,  are  dependent  upon 
the  status  of  the  system  for  their  resulting  actions. 


E:  All  arguments  to  GCS  subroutine  calls  are  either  real  or  character. 

F:  The  status  of  the  system  can  be  modified,  as  in  this  case  with  USET,  in  order  to 

obtain  a wide  range  of  output  types. 

G;  The  last  GCS  call  must  be  to  UENO,  a subroutine  which  performs  any  termination 
activity. 

GCS  CONVENTIONS 

Easy  to  remember  English-language  descriptions  rather  than  arbitrary  codes  are  used  to 
specify  modes.  For  example,  if  one  is  in  the  preset  condition  and  wishes  to  draw  in  polar 
coordinates  with  angles  measured  in  radians  and  lines  drawn  as  vectors  (solid  lines  with 
arrowheads),  one  would  merely  use  the  following  user  mode-sefting  commands: 

CALL  USET  ('POLAR') 

CALL  USET  ('RADIANS') 

CALL  USET  ('VECTOR') 

To  revert  to  drawing  in  rectangular  coordinates  with  plain  lines,  the  commands  would  be: 

CALL  USET  ('RECTANGULAR') 

CALL  USET  ('LINE') 

Furthermore,  there  are  those  modes  which  require  an  additional  parameter  to  be 
associated  with  that  particular  mode.  For  example,  the  preset  polynomial  degree  to 
which  a set  of  data  can  be  fitted  (using  the  subroutine  ULSTSQ)  is  5.  If  the  user  would 
prefer  that  his  data  be  fitted  to  a polynomial  of  degree  3,  he  would  use  the  User 
Parameter  Setting  command. 

CALL  UPSET  ('POLYNOMIAL  DEGREE', 3.) 

(before  the  call  to  ULSTSQ).  To  re-establish  the  original  polynomial  of  degree  5,  the 
appropriate  call  would  be 


CALL  UPSET  ('POLYNOMIAL  DEGREE', 5.) 


The  user  need  never  be  concerned  with  these  modes  of  parameters  unless  the  standard 
values  do  not  suit  him.  He  can  easily  change  them  to  values  he  wants.  Then  he  can 
forget  all  about  them  until  he  once  again  feels  a need  to  change,  or  until  the  GSA  is 
reintlaillxed. 

The  underlying  principle  which  permits  the  use  of  this  option  setting  technique  is  the 
faot  that  the  GSA  is  in  fact  a table  containing  all  of  the  options  necessary  to  define  an 
environment  in  which  graphics  activities  are  performed.  These  elements  are  preset  to 
values  which  reflect  the  most  commonly  performed  graphics  operations.  In  order  to 
make  a particular  graphics  option,  only  one  element  of  the  table  is  altered. 

It  will  be  normal  practice  in  this  manual  to  spell  out  completely  the  USET  or  UPSET 
option-names  in  full  even  if  the  name  is  very  long,  such  as  'DOUBLEARROW'  or 
'DASHEDLINE'.  Doing  this  is  good  form  and  good  self-documentation  for  programs. 
GCS  will,  however,  analyze  only  the  first  4 characters  in  any  option-name  designator.  If 
misspellings,  truncations  or  non-standard  wording  occurs,  the  corrupted  version  will  be 
fully  acceptable  to  GCS  provided  that  the  first  4 characters  of  the  character  string  are 
accurate. 

With  this  system  of  organization,  the  beginning  user— or  the  infrequent  user— is 
insulated  from  the  adverse  effects  which  would  tend  to  overwhelm  the  beginner  in  a 
system  designed  to  provide  flexibility  for  advanced  and  sophisticated  users. 

The  user  need  be  aware  of,  and  pay  attention  to,  only  those  degrees  of  freedom  which  he 
specifically  wants  to  exploit  in  writing  his  program.  GCS  does  not  burden  the  user  with 
long,  complicated  calling-parameter  lists  and  complicated  arbitrary  codes.  It  can  use 
short,  easy-to-remember  and  easy-to-use  commands  convenient  to  both  unsophisti- 
cated and  sophisticated  users. 


Information  in  This  Manual  and  Information  Excluded  From  It 

Some  idea  of  the  scope  and  range  of  the  subroutines  and  options  most  likely  to  be  of 
interest  to  the  beginning  user  may  be  found  in  Appendices  'A'  and  'B'.  Sophisticated 
subroutines  and  options  such  as  those  involved  in  dealing  with  axis  transformations, 
storing,  manipulating  and  editing  pictorial  data  structures  have  been  completely  omitted 
from  this  manual.  Only  a very  limited  subset  of  the  most  important  and  most  frequently 
used  subroutines  and  options  from  these  appendices  will  actually  be  described  in  detail 
and  discussed  in  this  manual.  For  more  complete  programming  information,  see  the 
section  entitled  GCS  routines. 
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CHAPTER  II 

GCS  PROGRAMMING  FUNDAMENTALS 

Initialization 

The  first  GCS  statement  in  any  program  must  be 

CALL  USTART 


Its  functions  are  many,  varied  and  important.  Some  of  them  are: 

A.  It  prepares  the  graphic  terminal  for  plotting.  In  doing  so,  it  clears  the  screen  (or,  in 
the  case  of  plotter,  requests  the  attendant  to  place  a fresh  sheet  of  paper  on  the 
plotbed),  places  the  beam  (or  pan)  in  a standard  position— coordinates  (0,0)  at  the 
lower  left  corner  of  the  standard  plotting  area. 

B.  It  sets  all  mode  and  parameter  options  at  their  standard  default  values. 

in  the  standard  default  condition,  the  system  is  set  to  use  Cartesian,  absolute 
coordinates  and  to  draw  solid  lines  in  a large  square  area  contained  within  the  screen  or 
plotting  bed  of  the  graphics  device.  It  is  preset  to  accept  the  values  of  0.  < X < 1 00.  and 
0.  < Y < 100.  Additional  default  settings  by  USTART  will  be  mentioned  later. 


Reinitialization 

At  any  time  the  initial  default  conditions  can  be  restored  by: 

CALL  URESET 


Termination 

It  is  necessary  to  perform  various  file  and  buffer  termination  activities  upon  exit  from 
GCS  by  putting  as  the  last  GCS  command  of  any  program 

CALL  UEND 

Use  of  this  statement  will  insure  that  all  GCS  output  is  completed. 


Erasing  or  Starting  Off  Again  With  a Clean  Sheet 

At  various  stages  in  running  a program,  it  is  often  worthwhile  to  erase  everything  which 
has  been  drawn  or  printed  on  a CRT  screen  or  to  ask  the  attendant  of  a plotter  to  replace 
the  old  sheet  on  the  plotter  with  a fresh  clean  one.  The  call  for  performance  of  this 
function  is: 

CALL  UERASE 

The  pen  position  remains  unchanged  when  erasure  occurs. 

Interactive  Versus  Batch 

In  a batch  program  there  is  no  need  to  suspend  execution  in  order  to  view  multiple  plots 
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prior  to  erasing  or  starting  off  again  with  a clean  sheet.  In  an  interactive  program  an 
alarm  can  be  sounded  to  indicate  a plot  is  done  by: 

CALL  UBELL 

Then  to  allow  viewing  f the  plot  use: 

CALL  UPAUSE 


Simple  Line-Drawing 

The  basic  command  in  GCS  for  drawing  lines  is 

CALL  UPEN  (X,Y) 

This  routine  moves  the  beam  (or  pen)  from  its  present  coordinate  position  (XO,YO)  to  a 
designated  new  location  (X,Y).  Pen  status  variables  in  the  Graphics  Status  Area  (GSA) 
determine  what  kind  of  line  (if  any)  is  drawn  as  a result  of  this  movement. 

Until  some  sort  of  overt  action  is  taken  to  change  pen  status,  every  UPEN  movement  will 
cause  a solid  line  to  be  drawn.  (CALL  USTART  sets  pen  status  to  'LINE'.)  CALL  USTART 
also  sets  the  initial  beam  (pen)  position  to  (0,0).  Example  IM  shows  a simple  series  of 
CALL  UPEN  commands  which  will  draw  a square  by  4 basic  pen-movements. 


Invisible  Lines 

If  one  wanted  to  draw  a similar  square  starting  at  some  location  other  than  the  origin,  one 
needs  to  be  able  to  move  the  beam  or  pen  invisibly,  that  is,  without  drawing  any  line.  One 
way  to  do  this  is  to  use  the  UMOVE  subroutine 

CALL  UMOVE  (X.Y) 

The  effect  is  identical  to  UPEN  except  that  no  line  of  any  kind  is  drawn  as  the  beam  or 
pen  moves  from  the  old  location  (X0,Y0)  to  the  new  location  (X.Y).  Example  11-2  shows  a 
program  which  draws  a square  offset  from  the  origin  in  this  way.  In  this  example  we  have 
used  subroutine  UOUTLN  to  outline  the  square  we  are  drawing  within.  (UOUTLN  is 
further  explained  in  Chapter  III.)  The  default  origin  is  at  the  lower  left  corner  (0,0). 

Using  a Pen  Status  Mode  Change  to  Draw  Invisible  Lines 

The  same  effect  as  a call  to  UMOVE  can  be  achieved  by  changing  pen  status  mode  from 
its  default  condition  to  'NOLINE'  by  means  of  a call  to  USET. 

CALL  USET  ('NOLINE') 

causes  the  system  to  again  draw  a line.  Example  11-3  shows  a program  which  uses  this 
approach  to  draw  the  same  image  as  Example  11-2. 

Another  subroutine  that  is  considered  to  be  a simple  line  drawing  subroutine,  capable,  if 
desired,  of  producing  an  invisible  line  as  in  the  example  above.  A call  to 

CALL  UPEN1  (X.Y.’NOLINE  ) 

enables  the  user  to  generate  an  Invisible  line  to  (X.Y).  The  mode  will  be  established  aa 
indicated  for  only  that  1 pen  movement.  Effectively,  the  above  ^all  is  the  same  as  the 
CALL  UMOVE  (X,Y),  or  of  the  CALL  USET  ('NOLINE'),  CALL  UPEN  (X,Y),  CALL  USET 


('LINE')  sequence.  It  will  be  shown  throughout  this  text,  however,  that  the  chosen  mode 
can  be  one  of  many  different  line  modes  other  than  'NOLINE'. 


Pen  Statue  Mode  Changes  Allow  Many  Kinds  of  Lines  to  be  Drawn 

The  UPEN  subroutines  of  GCS  can  draw  many  ither  kinds  of  lines,  including  lines  in 
various  colors  (if  the  plotting  device  permits),  dashed  lines,  lines  with  tics  along  their 
length,  and  lines  of  all  these  types  with  various  kinds  of  terminating  characters  or 
symbols.  The  number  of  permutations  of  line  types  and  terminators  to  be  used  at  the  end 
of  a line  is  very  large.  Some  of  the  more  important  are  demonstrated  later  in  Chapter  VI. 
However  some  of  the  basic  options  are  considered  below. 


Alternate  Colors 

If  the  graphical  device  being  used  has  the  ability  to  display  lines  of  different  colors,  the 
user  can  request  that  any  subsequent  line  be  generated  with  one  of  seven  colors,  using 
CALL  USET  (OPTION),  where  OPTION  in  this  case  is  'WHITE,'  BLACK,'  RED,'  GREEN,' 
'YELLOW,'  'BLUE,'  MAGENTA,'  or  'CYAN.' 

Many  terminals  such  as  the  Tektronix  do  not  have  a multi-color  capability  and,  as  such 
use  the  default  color  BLACK.  Others,  including  most  pen  plotters,  allow  manual  color 
change  by  replacement  of  the  drawing  pen  by  one  of  another  color.  A color  mode  change 
with  such  a device  causes  the  plotter  to  position  itself  for  pen  replacement  a color 
change  request  to  be  typed  out  on  the  control  device. 

Most  things  done  with  colors  can  be  done  on  devices  which  do  not  have  a color 
capability  by  making  distinctions  through  the  use  of  plain  lines,  and  various  types  of 
dashed  lines,  arrow  lines,  ticmarked  lines  and  so  forth. 


Vectors  or  Lines  with  Arrowheads 

One  frequently  useful  set  of  options  is  the  arrowhead  options.  These  are  useful  for 
drawing  vectors,  dimension  lines,  etc.  These  use  the  following  pen  status  modes: 

Pen  Status  Description 

'ARROW'  Draws  a "forward  vector"  with  its  arrowhead  at  (X,Y) 

'BACKARROW'  Draws  "backward  vector"  with  its  arrowhead  at  (Xo,Yo) 

'DOUBLEARROW'  Draws  a "dimension  line,"  i.e.,  a line  with  arrowhead 

pointing  out  at  each  end. 

Example  11-4  demonstrates  the  use  of  the  'ARROW'  option. 


Tic  Marked  Linas 

Another  available  option  is  tic  lines,  i.e.,  lines  with  tic  marks  at  specified  intervals  along  it. 
Pen  status  may  be  set  to  draw  such  lines  by  using  a call  to  USET. 

CALL  USET  ( TICLINE  ) 

A call  to  UPSET 

CALL  UPSET  ( TICINTERVAL'.PARAMETER) 


will  change  the  interval  along  a ticllne  at  which  the  tics  will  actually  be  placed  For 
example: 


CALL  UPSET  (TICINTERVAL',5.) 

CALL  UPEN1  (X.Y/TICLINE') 

will  produce  a ticline  to  (X,Y),  marked  off  with  tics  at  intervals  of  5 units  rather  than  the 
default  value  of  10.  Example  11-5  shows  several  ticline  options. 


Dashed  Lines 

One  can  draw  dashed  lines  by  going  to  the  'DASHLINE'  mode  with  a 

CALL  USET  ('DASHLINE') 

The  length  of  the  dashes  and  or  the  intervals  between  the  dashes  can  be  modified,  if 
desired,  with  a 


CALL  UPSET  ('SETDASH',  DASHCODE) 

the  resulting  dashed  line  will  be  repetitions  of  the  effect  caused  by  the  combination  of 
the  digits  (0-9)  as  follows: 


DASHCODE 

Effect  on 

Effect  on 

Digit 

Visible  Units 

Invisible  Units 

1 

1 

2 

— 

1 

3 

2 



4 

— 

2 

5 

5 



6 

— 

5 

7 

1 0 



8 

— 

10 

g 

1 point 

— 

0 

— 

1 point 

The  specification  of  a single  digit  for  DASHCODE  will  produce  standard  dashed 
(DASHCODE  ~ 1-8)  or  standard  dotted  (DASHCODE  — 9)  lines.  If  the  user  desires  a 
non-standard  dashed  line  he  must  specify  a DASHCODE  of  two  or  more  digits,  followed 
by  a decimal  point.  The  following  sequence: 

CALL  USET  ('DASH') 

CALL  UPSET  ('SETDASH', 76.) 

CALL  UPEN  (X,Y) 

will  produce  for  example,  a dashed  line  to  (X,Y)  consisting  of  1 0 visible  units.  5 invisible 
units.  10  visible  units,  5 Invisible  units,  etc.  The  physical  length  of  a unit  will  be 
approximately  0.04  inches  for  the  majority  of  the  devices.  Example  11-6  illustrates 
several  dashed  line  options.  The  number  of  possible  types  of  dashed  lines  is  limited  only 
by  the  word  length  of  the  central  computer. 


Polar  Coordinates 
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The  options  absolute  and  rectangular  (Cartesian)  are  established  as  defaults  by 
USTART.  because  most  drawings  use  this  simple  coordinate  system.  A polar  coordinate 
system  provides  the  user  with  the  capability  of  referring  to  a location  on  the  device  in 
polar  coordinates  (R, THETA)  rather  than  in  rectangular  coordinates  (X,Y).  Example  11-7 
illustrates  use  of  polar  plotting. 


Relative  (Incremental)  Plotting 

The  relative  coordinate  mode  interprets  the  coordinate  pair  of  the  pen  request  as  units 
relative  (positive  or  negative)  to  the  previous  pen  position  rather  than  as  an  absolute 
position.  Example  11-8  illustrates  use  of  relative  plotting. 
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C THIS  SAMPLE  PROGRAM  WILL  DEMONSTRATE  SIMPLE  LINE-DRAWING  BY 
C DRAWING  A SQUARE  BOX  IN  4 PEN  MOVEMENTS 
C 

C INITIALIZE  GCS 

C THIS  INITIALIZATION  SETS  GCS  TO  RECTANGULAR,  ABSOLUTE 

C COORDINATES,  SOLID  LINE  PEN-DRAWING  MODE.  AND  INITIAL  PEN 
C COORDINATES  (0,0) 

C 

CALL  USTART 
C 

C NOTE  THAT  ALL  GCS  SUBROUTINES  (INCLUDING  THE  UPEN  ROUTINE  USE 
C TYPE  REAL  CALLING  PARAMETERS.  THUS  COORDINATES  MUST  BE 
C ENTERED  AS  REAL  NUMBERS,  I.E.  WITH  DECIMAL  POINTS 
C 

C MOVE  PEN  TO  (0.50)  THEREBY  DRAWING  LINE  (0,0)  to  (0,50) 


CALL  UPEN  (0..50.) 

MOVE  PEN  TO  (50,50)  THEREBY  DRAWING  LINE  (50,50)  TO  (50,0) 
CALL  UPEN  (50., 0.) 

MOVE  PEN  TO  (0,0)  THEREBY  DRAWING  LINE  (50,0)  TO  (0,0) 


CALL  UPEN  (0..0.) 

THIS  COMPLETES  DRAWING  OF  THE  SQUARE 

WRAP-UP.  FIRST  TERMINATE  GCS  BY  CALL  UEND.  THEN  STOP  EXECUTION 
WITH  STOP.  FINALLY  END  FORTRAN  PROGRAM  WITH  END. 

CALL  UEND 

STOP 

END 


EXAMPLE  11-1 
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THIS  PROGRAM  DEMONSTRATES  USE  OF  THE  MOVE  COMMAND  TO  MOVE 
THE  PEN  INVISIBLY  WITHOUT  NEED  FOR  A MODE  CHANGE.  IT  DRAWS  A 
SQUARE  IDENTICAL  TO  THE  PREVIOUS  ONE. 

INITIALIZE 

CALL  USTART 
CALL  UOUTLN 

MOVE  PEN  INVISIBLY  TO  COORDINATES  (45,45) 

CALL  UMOVE  (45  .45.) 

NO  CHANGE  HAS  BEEN  MADE  IN  PENSTATUS  SO  IT  IS  STILL  IN  THE  DEFAULT 
CASE  OF  SOLID  LINES.  DRAW  THE  SQUARE. 

CALL  UPEN  (45  .95.) 

CALL  UPEN  (95  .95.) 

CALL  UPEN  (95  .45.) 

CALL  UPEN  (45  .45.) 

WRAP  UP 

CALL  UEND 

STOP 

END 


EXAMPLE  11-2 


ii-e 


ooo  ooo  oooo 


r 


C THIS  PROGRAM  DEMONSTRATES  THE  USE  OF  A MODE  CHANGE  TO  MOVE 

C PEN  POSITION  WITHOUT  DRAWING  A LINE.  OTHERWISE  IT  DRAWS  A 
C SQUARE  IDENTICAL  TO  PREVIOUS  ONE. 

C 

C FOLLOWING  INITIALIZATION  BY  USTART  IS  ALWAYS  NECESSARY.  AMONG 
C OTHER  THINGS  IT  AUTOMATICALLY  SETS  PENSTATUS  FOR  DRAWING  SOLID 
C LINES  AND  INITAL  PEN  POSITION  TO  COORDINATES  (0,0). 

C 

CALL  USTART 
CALL  UOUTLN 

SET  MODE  TO  'NOLINE'  THEN  MOVE  PEN  TO  COORDINATES  (45,45)  WITHOUT 
DRAWING  A LINE 

CALL  USET  ('NOLINE') 

CALL  UPEN  (45., 45.) 

NOW  RESET  PENSTATUS  FOR  DRAWING  SOLID  LINES  AND  DRAW  SQUARE 

CALL  USET  ('LINE') 

CALL  UPEN  (45.,95.) 

CALL  UPEN  (95., 95.) 

CALL  UPEN  (95  .45.) 

CALL  UPEN  (45., 45.) 

WRAP  UP 

CALL  UEND 
STOP 
END 


EXAMPLE  11-3 
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C SAMPLE  PROGRAM  USEO  TO  ILLUSTRATE  ARROW',  'BACKARROW',  AND 
C 'DOUBLEARROW'  LINE  OPTIONS  AVAILABLE  THROUGH  USET/UPEN. 

C INITIALIZE  GCS,  AND  THEN  DRAW  THE  OUTLINE  OF  OUR  PLOTTING  AREA 
C 

CALL  USTART 
CALL  UOUTLN 

MOVE  TO  VIRTUAL  LOCATION  (25,75),  SET  LINE  TYPE  TO  ARROW'.  AND 
DRAW  A LINE  WHICH  EXTENDS  TO  VIRTUAL  LOCATION  (75,75). 

CALL  UMOVE 

CALL  USET  ('BACKARROW') 

CALL  UPEN  (75., 50.) 

MOVE  BEAM/PEN  TO  VIRTUAL  LOCATION  (25,25),  SET  LINE  TYPE  TO 
'DOUBLEARROW',  AND  THEN  DRAW  LINE  WHICH  EXTENDS  TO  VIRTUAL 
LOCATION  (75.25).  TERMINATE  THE  PROGRAM  AFTER  LINE  IS  DRAWN. 

CALL  UMOVE  (25., 25.) 

CALL  USET  ('DOUBLEARROW') 

CALL  UPEN  (75  ,25.) 

CALL  UEND 
STOP 
END 


EXAMPLE  11-4 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  TIC  LINE  GENERATION  PTIONS 
C AVAILABLE  THROUGH  GCS  INITIALIZE  GCS,  SET  PEN-STATUS  TO  THE  'TIC' 
C MODE,  AND  THEN  DRAW  A LINE  WHICH  BEGINS  AT  (0,99.)  AND  TERMINATES 
C AT  (1 00  ,99.)  UP'NG  THE  DEFAULT  TIC  LENGTH. 

C 

CALL  USTART 
CALL  USET  (TICLINE) 

CALL  UMOVE  (0,99 ) 

CALL  UPEN  (100  ,99.) 


REQUEST  TICS  TO  APPEAR  AT  EVERY  5.0  VIRTUAL  UNITS,  AND  DRAW  A LINE 
WHICH  STARTS  AT  (0..60.)  AND  ENDS  AT  (1 00., 60.). 


CALL  UPSET  ( TICINTERVAL  .5.) 

CALL  UMOVE  (0  ,60.) 

CALL  UPEN  (100., 60.) 

REQUEST  TICS  TO  APPEAR  AT  EVERY  1 0.  VIRTUAL  UNITS.  AND  DRAW  A LINE 
WHICH  STARTS  AT  (0..40.)  AND  ENDS  AT  (1 00  ,40.). 

CALL  UPSET  ('TICINTERVAL',1 0.) 

CALL  UMOVE  (0  ,40.) 

CALL  UPEN  (100, .20) 

REQUEST  TICS  TO  APPEAR  AT  EVERY  20.  VIRTUAL  UNITS,  AND  DRAW  A LINE 
WHICH  STARTS  AT  <0.,20.)  AND  ENDS  AT  (1 00., 20.). 

CALL  UPSET  ('TICINTERVAL',20.) 

CALL  UMOVE  (0  ,20.) 

CALL  UPEN  (100  ,20.) 

REQUEST  TICS  TO  APPEAR  AT  EVERY  50.  VIRTUAL  UNITS.  AND  DRAW  A LINE 
WHICH  STARTS  AT  (0.,1 .)  AND  ENDS  AT  (1 00  ,1 .). 

CALL  UPSET  ('TICINTERVAL',50.) 

CALL  UMO’^E  (0  ,1.) 

CALL  UPEN  (1 00  ,1.) 

CALL  UEND 

STOP 

END 


EXAMPLE  11-5 
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CALL 

CALL 

CALL 


CALL 


STOP 
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USET  C'TICLDO 
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UPEMCISS.,80.) 

UPSET  C'TXdNTERVAL' 
(Move  CS..S8.J 
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UPSET  C'TIdNTERVAL* 
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UPSET  C'TIdNTERVAL' 
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UPSET  C'TIdNTERVAL* 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  DASHED  LINE  GENERATION 
C OPTIONS  AVAILABLE  THROUGH  GCS.  INITIALIZE  GCS,  SET  THE  PEN-STATUS 
C TO  'DASH'  MODE.  AND  THEN  DRAW  A LINE  WHICH  BEGINS  AT  (0.,1 00.)  AND 

C TERMINATES  AT  (1 00., 1 00  ).  THE  DEFAULT  VALUE  OF  DASH  WILL  BE  USED 

C FOR  THIS  CASE 
C 

CALL  USTART 

CALL  USET  ('DASHLINE') 

CALLUMOVE  (0..100.) 

CALL  UPEN  (1 00..1 00.) 

SET  THE  DASH  SPECIFICATION  TO  54.,  AND  DRAW  A LINE  THAT  ST  ARTS  AT 
(0..80.)  AND  ENDS  AT  (100., 80.). 

CALL  UPSET  ('SETDASH',54.) 

CALL  UMOVE  (0..60.) 

CALL  UPEN  (100., 60.) 

SET  THE  DASH  SPECIFICATION  TO  521 2„  THEN  GENERATE  A LINE  THAT 
STARTS  AT  (0..40.)  AND  ENDS  AT  (1 00..40  ). 

CALL  UPSET  ('SETDASH',521  2.) 

CALL  UMOVE  (0..40.) 

CALL  UPEN  (100., 40.) 

SET  THE  DASH  SPECIFICATION  TO  5434.,  THEN  GENERATE  A LINE  THAT 
STARTS  AT  (0  ,20.)  AND  ENDS  AT  (1 00., 20  ). 

CALL  UPSET  ('SETD ASH', 5434.) 

CALL  UMOVE  (0  ,20.) 

CALL  UPEN  (100  ,20.) 

SET  THE  DASH  SPECIFICATION  TO  96.,  AND  DRAW  A LINE  THAT  STARTS  AT 
(0..0.)  AND  ENDS  AT  (1 00., 0 ). 

CALL  UPSET  ('SETDASH',96.) 

CALL  UMOVE  (0..0.) 

CALL  UPEN  (1 00., 0.) 

CALL  UEND 
STOP 
END 


EXAMPLE  11-6 
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f?Ai  i USTART 

CALL  user  C*DASHUXE*> 

CALL  UHOVE 

call  upen  ciaa..  IMJ 

CALL  UPSET  C*8ETDASH*#S4.d 
CALL  UHOVE  C9..9B.) 

call  upeh  cissies.? 

CALL  UPSET  (*S£TDASH#,S2.) 
CALL  UHOVE  CS..88.5 
CALL  UPEN  CIM.,08.) 

CALL  UPSET  C*SETDASH*,S2I2.> 
CALL  UHOVE  CS.,4S.> 

CALL  UPEN  CtaS.„4S.> 

CALL  UPSET  <*SETDASH*,S494.> 

CALL  UHOVE  CS.,ES.d 

CALL  UPEN  CtM.„2S.d 

CALL  UPSET  C*S£n>ASH*,S6.> 

CALL  UHOVE  CS.,«.d 

CALL  UPEH  C1M., A. 2 

CALL  UEHD 

STOP 

END 
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C THIS  PROGRAM  WILL  DEMONSTRATE  THE  USE  OF  POLAR  PLOTTING  BY 
C DRAWING  A QUARTER  OF  A CIRCLE 

C 

C INITIALIZE  LINE  DRAWING  SPEED  OF  TERMNAL  TO  1 20  CHARACTERS  PER 
C SECOND 

C 

CALL  USTART 
CALL  UPSET  ('SPEED', 1 20.) 

CALL  UERASE 

INDICATE  PLOTTING  WILL  BE  IN  POLAR  COORDINATES  (R,A) 

CALLUSET  ('POLAR') 

PLOT  A QUARTER  OF  A CIRCLE  THAT  HAS  A RADIUS  OF  1 00  IN  NINE  DEGREE 
INCREMENTS  FROM  ZERO  TO  NINETY  DEGREES 

RADIUS=  1 00. 

DO  100  1 = 1 ,1 1 
ANGLE  = FLOAT  (1-1)  * 9. 

100  CALL  UPEN  (RADIUS, ANGLE) 

CALL  UPEN  (0.,0.) 

TERMINATION 

CALLUEND 
STOP 
END 


EXAMPLE  11-7 
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CALLUSTART 

CALL  UPSET  ('SPEED', 1 20.) 

CALL  UERASE 


INDICATE  PLOTTING  WILL  BE  DONE  IN  RELATIVE  MODE  AND  DRAW  A BOX 
1 00  DATA  UNITS  ON  A SIDE 

CALLUSET  ('RELATIVE') 

CALLUPEN  (100  ,0.) 

CALLUPEN  (0..100.) 

CALLUPEN  (-100,0.) 

CALLUPEN  (0..-100.) 

TERMINATION 

CALLUEND 
STOP 
END 


CHAPTER  III 


VIRTUAL  AND  DEVICE  GRAPHICS 


Outlining  the  Plotting  Area 

To  obtain  an  outline  of  the  area  within  which  all  graphical  activity  will  be  performed,  the 
programmer  may  invoke  the  GCS  subroutine  UOUTLN: 

CALL  UOUTLN 

Although  the  use  of  UOUTLN  certainly  is  not  necessary  for  most  graphical  applications, 
there  are  many  times  (particularly  during  the  learning  and  debugging  phases)  when  it  is 
useful  for  the  programmer  to  know  the  physical  boundaries  of  the  display  he  is 
generating. 


The  Default  Case  and  Simple  Extensions 

The  examples  presented  so  far  have  assumed  the  use  of  variables  which  fall  into  the 
range  of  values: 

0 .LE.  X .LE.  100 
0 LE.  Y .LE.  1 00 

with  no  specific  control  over  where  on  the  screen  (or  plotting  bed)  the  pictures  are 
actually  drawn.  This  is  the  default  case  established  by  USTART. 

The  user  can  easily  change  the  range  of  permissible  values  to  the  ranges 

XMIN  .LE.  X .LE.  XMAX 

YMIN  LE.  Y LE.  XMAX 


by  use  of  the  command 

CALL  UWINDO  (XMIN, XMAX, YMIN, YMAX) 

This  permits  the  user  to  plot  anywhere  in  the  space  defined  by  the  the  four  parameters  in 
the  subroutine  call. 

The  values  of  the  four  parameters  may  be  any  FORTRAN  real  numbers  permissible  on 
the  particular  computer  in  use  (subject  only  to  the  restriction  XMIN  .NE.  XMAX  and  YMIN 
.NE.  YMAX).  See  Example  111-1. 


Increasing  and  Dacraaslng  Apparent  Picture  Size 

Through  the  use  of  UWINDO,  it  is  possible  to  increase  or  decrease  the  apparent  picture 
size  without  having  to  change  the  values  of  the  parameters  required  to  generate  the 
display.  This  facility  effectively  provides  an  elementary  "zoom"  capability  which  may  be 
readily  utilized  under  GCS.  Example  111-2  illustrates  a simple  six-step  "zoom-out"  by 
successively  increasing  the  window  specifications  prior  to  generating  each  of  the 
figures.  Note  that  the  pen  commands  required  to  draw  the  figure  are  identical  in  each  of 
the  six  steps,  and  that  the  only  dynamic  entity  is  the  window  itself.  Example  111-3 


illustrates  a six-step  "zoom-in"  through  decrementing  the  virtual  window.  It  should  be 
noted  that  an  increase  in  the  window  specifications  decreases  the  apparent  picture  size 
(zoom-out)  and  that  a decrease  of  the  window  specifications  yields  an  increase  in 
apparent  picture  size  (zoom-in). 


Distortion 

It  is  important  to  note  the  ratio  of  the  X-to-Y  window  specifications  when  defining  new 
window  boundaries,  as  ratios  other  than  unity  indicate  that  a distorted  window  will  be 
contructed.  Example  111-4  illustrates  this  type  of  distortion  by  displaying  the  same  basic 
information  provided  by  Example  ill-3  with  the  exception  that  non-square  windows  are 
utilized. 


Clipping  the  Edges  of  the  Picture 

Should  the  graphics  programmer  attempt  to  display  information  at  coordinate  locations 
which  lie  outside  of  the  window  boundaries,  QCS  will  "clip"  the  display  at  the  window 
boundaries  and  any  graphical  activity  attempted  outside  of  the  boundaries  will  not  be 
displayed.  Example  111-4  illustrates  the  clipping  feature  applied  to  a simple  six-level 
"zoom-in".  We  will  again  return  to  the  topic  of  clipping  after  we  first  consider  the 
concept  of  device  coordinate  addressing  under  GCS. 


Expanding  Flexibility  and  Capabilities:  Device  Mode 

When  desired,  GCS  provides  means  of  very  detailed  control  of  where  pictures  are  drawn 
on  the  physical  device.  This  may  be  done  by  going  to  the  'DEVICE'  mode  with  a 

CALL  USET  ( DEVICE  ) 

Thereafter  all  coordinates  are  measured  directly  in  device  measurement  units  from  the 
lower  left  corner  of  the  display  screen  or  plotting  bed. 

Several  optional  units  of  measure  are  available  on  the  display  screen  or  plotting  bed: 

CALL  USET  ('CENTIMETERS')  causes  horizontal  and  vertical  distances  to  be 
measured  in  centimeters. 

CALL  USET  ('FONTUNITS')  causes  horizontal  measurement  in  units  of  the  width  of 
standard  alphabetic  characters  (usually  the  hardware  characters  for  the  device 
being  used)  and  vertical  measurement  in  units  of  the  height  of  the  alphabetic 
characters. 

CALL  USET  ('PERCENTUNITS')  cause  horizontal  measurement  in  units  of  a 
percentage  of  the  full  width  of  the  screen  or  plotting  bed  and  vertical  measurement 
in  units  of  one  percent  of  the  full  physical  height  of  the  screen  or  plotting  bed. 

CALL  USET  ('RASTERUNITS')  causes  horizontal  and  vertical  measurement  In 
terms  of  the  smallest  addressable  unit  for  a particular  device. 

CALL  USET  (’INCHES')  causes  the  horizontal  and  vertical  measurement  on  the 
display  to  revert  to  the  default  case  of  inches. 


See  Example  111-6 


Windowing:  A Moro  Flexible  and  Advanced  Concept  of  Picture  Control 

Particular  locations  on  the  graphic  device  screen  or  plotting  bed  can  be  designated  a 
device  plotting  area  by  the  command 

CALL  UOAREA  (XMIN.XMAX.YMIN.YMAX) 

where  XMIN.XMAX.YMIN  and  YMAX  are  measured  in  the  currently  defined  units  o( 
measure  in  the  device  mode:  inches,  centimeters,  percentunits,  fontunits  or  rasterunlts. 
Designation  of  this  device  plotting  area  has  no  effect  in  the  device  mode.  However,  in  the 
virtual  mode,  either  by  default  or  by  executing  a call  to  USET  ('VIRTUAL'),  this  device 
plotting  area  is  at  the  heart  of  an  extremely  powerful  concept  of  graphic  control  known  as 
windowing.  This  concept  is  most  easily  visualized  by  referring  to  the  next  figure  while 
following  the  description  below  and  the  sample  programs  and  their  output. 

The  user  may  pick  any  scale  or  range  of  values  desired  to  plot  by  means  of  a call  to 
UWINDO.  For  example,  to  plot  values  in  the  range  0 < X < 1 000  and  0 < Y < 1 000,  give 
the  command 

CALL  UWINDO  (0., 1000  , 0 ,1000.) 

A call  to  UDAREA  is  used  to  specify  where  on  the  device  to  plot  data.  Then,  plot  in  a 4- 
inch  square  at  the  left  bottom  of  the  display  screen,  first  make  sure  that  the  unit  of 
measure  is  'INCHES'  then  give  the  command 

CALL  UDAREA  <0.,4.,0.,4) 

Next,  make  sure  that  the  mode  is  'VIRTUAL'  and  do  any  plotting  desired.  Any  values 
within  the  "virtual  window"  0 LE.  X.Y  .LE.  1000  is  projected  into  the  corresponding 
position  of  the  "device  plotting  area"  0 LE.  X,Y,  LE.  4.  For  example,  the  user's  numeric 
values  of  Y — 0,  X - 0 would  map  into  the  lower  left  corner  of  the  screen  or  plotting  bed 
at  position  X — 0,  Y — 0.  User  values  of  X — 1000,  Y - 1000  would  map  into  the  upper 
right  corner  of  the  4-inch  device  plotting  area  at  X - 4,  Y - 4.  User  values  of  X - 250,  Y 
- 750  would  correspondingly  map  into  X - 1,  Y - 3. 

But  what  happens  if  the  user  tries  to  draw  a line  to  a point  outside  the  0 .LE.  X,  Y .LE. 
1 000  window,  for  example,  X — 250,  Y - 1 5007  Direct  projection  would  indicate  that 
such  a line  would  rise  vertically  from  the  previous  point  to  a point  X = 1 , Y - 6,  but  such 
a line  would  pass  out  of  the  designated  device  plotting  area.  What  happens  is  that  the 
line  Is  'clipped'  off  at  the  edge  of  the  window,  i.e.,  drawn  only  to  the  limit  of  the  window 
(which  is,  of  course,  also  the  limit  of  the  device  plotting  area).  Thus  if  any  other  lines  or 
textual  material  had  previously  been  put  into  adjacent  area  just  outside  the  designated 
plotting  area  it  would  be  protected  against  being  overwritten  by  data  which  was 
considered  to  be  irrevelant  because  it  fell  outside  the  expressed  values  of  plotting 
interest  specified  by  UWINDO.  This  'clipping'  action  associated  with  mapping  from  a 
virtual  window  to  a specified  device  area  adds  markedly  to  the  power  and  ease  of 
pictorial  control  in  GCS. 

Here  are  some  examples  of  the  use  of  windowing: 

A.  Convenient  Units:  the  imaginary  or  expandable  plotting  area  or  virtual  window 
can  be  defined  to  correspond  to  any  convenient  units  which  the  user  would 
like  to  think  in  terms  of. 

B.  Virtual  Window  Modification:  the  user  can  selectively  examine  different  areas 
of  an  entire  display  through  the  redefinition  of  the  virtual  window  followed  by 
the  pen  movements  of  that  entire  display.  This  idea  can  also  be  used  to 
examine  a small  area  of  a display  in  great  detail. 
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C.  Device  Window  Modification:  the  same  display  can  be  generated  at  many 
different  locations  on  the  device  with  the  same  pen  movements  by  fixing  the 
virtual  window  and  changing  the  device  window,  as  illustrated  in  Example  ill-7. 
An  extension  of  this  device  window  modification  capability  allows  the  user  to 
achieve  distortions,  as  in  Example  ill-8. 


Device  Independent  Plotting 

The  previous  examples  that  used  subroutine  UDAREA  were  written  for  a Tektronix 
4010/4013  terminal.  A device  independent  program  can  be  written  by  using 
'percentunlts'  or 


CALL  USTUD  (ARRAY) 


A USER'S  CALL  TO  PEN  MOVEMENTS  ARE  WITH  THESE  PEN  MOVEMENTS.  IF  WITHIN  THE 
RESPECT  TO  THE  USER  SPECIFIED  VIRTUAL  VIRTUAL  WINDOW  OF  THE  FIRST  DIAGRAM. 

WINDOW.  WILL  ACTUALLY  APPEAR  WITHIN  THE  USER 

SPECIFIED  DEVICE  WINDOW  OF  THE  ABOVE 
DIAGRAM. 


DEVICE  WINDOW 


THIS  ACTUALLY  OCCURS  AS  THE  RESULT  OF  A MAPPING  DIRECTLY  FROM  THE 
VIRTUAL  WINDOW  TO  THE  DEVICE  WINDOW. 


FOR  EXAMPLE.  THOSE  PEN  MOVEMENTS  WHICH  WILL  ACTUALLY  APPEAR  WITHIN 

FALL  WITHIN  THIS  PARTICULAR  VIRTUAL  THIS  PARTICULAR  DEVICE  WINDOW. 

WINDOW 


Figure  3-1.  The  Viewporting  Concept 

0791-1 
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THIS  PROGRAM  GENERATES  TWO  VECTORS  WITH  ARROW  LINES.  AND  THE 
RESULTANT  VECTOR  WITH  A DASHED  ARROW  LINE. 


INITIALIZE  THE  SYSTEM  AND  GENERATE  AN  OUTLINE 

CALL  USTART 
CALL  UOUTLN 

REDEFINE  THE  VIRTUAL  WINDOW 
-50000  < X < 50000 
0.00001  < Y < 0 000 

CALL  UWINDO  ( -50000., 50000., 0 00001 ,0  00005) 

DRAW  THE  TWO  VECTORS 

MOVE  TO  THE  BEGINNING  POINT  OF  THE  FIRST  VECTOR  SET  TO  ARROW 
MODE  AND  DRAW  VECTOR  FROM  ( -40000  . 0 00004)  TO  (40000 .0.00004) 

CALL  UMOVE  (-40000., 0.00004) 

CALL  USET  ('ARROW') 

CALL  UPEN  (40000., 0.00004) 

DRAW  SECOND  VECTOR  FROM  END  OF  FIRST  TO  (40000 ,0.00002) 

CALL  UPEN  (40000  ,0.00002) 

MOVE  TO  BEGINNING  OF  VECTOR  SYSTEM 
CALL  UMOVE  (-40000., 0.00004) 

SET  MODE  TO  DRAW  DASHED  ARROW  AND  DRAW  RESULTANT  VECTOR 

CALL  USET  ( DARROW  ) 

CALL  UPEN  (40000  ,0.00002) 

TERMINATION 

CALL  UEND 
STOP 
END 


EXAMPLE  111-1 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ELEMENTARY  SIX-LEVEL 

C ZOOMING  BY  ADJUSTING  ONLY  THE  VIRTUAL  WINDOW  BOUNDARIES.  NOTE 
C THAT  THE  PEN  COMMANDS  REQUIRED  TO  DRAW  THE  FIGURE  REMAIN 

C UNCHANGED. 

C 

C ENTER  GCS  AND  SETUP  LOOP  TO  PERMIT  US  TO  ZOOM  AWAY  FROM  FIGURE. 
C 

CALL  USTART 
DO  1 1-1,6 

ERASE  THE  SCREEN  AND  DEFINE  THE  BOUNDARIES  FOR  OUR  NEW  WINDOW. 

CALL  UERASE 
BOUNDS- lOO.'FLOAT(l) 

CALL  UWINDO  (O..BOUNDS.O..BOUNDS) 

CALL  UOUTLN 
CALL  DRWFIG 
1 CONTINUE 

WRAP-UP  ALL  GRAPHIC  ACTIVITY  AND  TERMINATE  THE  FORTRAN 
PROGRAM. 

CALLUEND 
STOP 
END 

SUBROUTINE  USED  TO  GENERATE  A PENTAGON  WITHIN  A CIRCLE  & PAUSE. 
SEVERAL  GCS  UTILITY  SUBROUTINES  ARE  UTILIZED  BUT  NOT  DESCRIBED 
AT  THIS  POINT.  (SEE  CHAPTERS  V AND  VI  FOR  DETAILS). 

SUBROUTINE  DRWFIG 
CALL  UCRCLE  (50., 50., 50.) 

CALL  UPLYGN  (50.,50.,5.,25.) 

CALLUBELL 
CALLUPAUSE 
RETURN 
END 


EXAMPLE  111-2 
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CALL  USTART 
DO  I I - I,  « 
f»Al  l ICTiCT 

BOUNDS  - IBB.  m FLOAT CXi 
CALL  UHZNPO  CB., BOUNDS* A., BOUNDS) 
CALL  UOUTLN 
CALL  DRMP20 
I CONTXNUC 
CALL  UEND 
STOP 
END 

subroutine;  drwfto 

CALL  UCRCLE  CSB.*6B.*60.> 

CALL  UPLYON  CSB.*6B.*5.* tS.> 

CALL  UBELL 
ihi  i upause 


ooooo  oooo  o ooo 


C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ELEMENTARY  SIX-LEVEL 
C ZOOMING  BY  ADJUSTING  ONLY  THE  VIRTUAL  WINDOW  BOUNDARIES.  NOTE 
C THAT  THE  PEN  COMMANDS  REQUIRED  TO  DRAW  THE  FIGURE  REMAIN 

C UNCHANGED. 

C 

C ENTER  GCS  AND  SETUP  A LOOP  TO  PERMIT  US  TO  ZOOM  TOWARD  FIGURE. 

c 

C CALLUSTART 

DO  1 1=1,6 

ERASE  THE  SCREEN  AND  DEFINE  THE  BOUNDARIES  FOR  OUR  NEW  WINDOW. 
CALL  UERASE 

BOUNDS  = 50.-(5.*FLOAT(I-1 )) 

CALL  UWINDO  (-BOUNDS, BOUNDS, -BOUNDS, BOUNDS) 

CALL  UOUTLN 
CALL  DRWFIG 
1 CONTINUE 

WRAP-UP  ALL  GRAPHIC  ACTIVITY  AND  TERMINATE  THE  FORTRAN 
PROGRAM. 

CALLUEND 
STOP 
END 

SUBROUTINE  USED  TO  GENERATE  A PENTAGON  WITHIN  A CIRCLE  & PAUSE 
SEVERAL  GCS  UTILITY  SUBROUTINES  ARE  UTILIZED  BUT  NOT  DESCRIBED 
AT  THIS  POINT.  (SEE  CHAPTERS  V AND  VI  FOR  DETAILS). 

SUBROUTINE  DRWFIG 
CALL  UCRCLE  (0..0..25.) 

CALL  UPLYGN  (0.,0.,5.,1 2.5) 

CALLUBELL 
CALLUPAUSE 
RETURN 
END 


EXAMPLE  111-3 
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GALL  UtTART 

po  i i ■ if  a 


f*Ai  i i»»Pt«y 

WWW  -«•.-«.»  PLOATCZ— 1» 

CALL  UWXNDO  

CALL  UOUTLN 
CALL  PRUTX9 
! CONTZNUe 
CALL  UQO 


.WUM) 


SUBROUTZie  PRWTZ8 
CALL  UCRCLE  CB..9.,26.3 
CALL  UPLYSN  Ca.,9.,6.,  12. g> 


CALL  UPAUSe 

return 


:■ 

! 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ELEMENTARY  SIX-LEVEL 

C ZOOMING  BY  ADJUSTING  ONLY  THE  VIRTUAL  WINDOW  BOUNDARIES.  NOTE 
C THAT  THE  PEN  COMMANDS  REQUIRED  TO  DRAW  THE  FIGURE  REMAIN 
C UNCHANGED.  ALSO  NOTE  THE  DISTORTION  DUE  TO  THE  EFFECT  OF  NON- 
C SQUARE  WINDOWING. 

C 

C ENTER  GCS  AND  SETUP  A LOOP  TO  PERMIT  US  TO  ZOOM  TOWARD  FIGURE. 

C 

CALLUSTART 
DO  1 1-1,6 

ERASE  THE  SCREEN  AND  DEFINE  THE  BOUNDARIES  FOR  OUR  NEW  WINDOW 
CALLUERASE 

XBOUND  = 50.-(5.*FLOAT(I-1 )) 

YBOUND  = 50.-(2.5*FLOAT(I-1 )) 

CALL  UWINDO  (-XBOUND.XBOUND.-YBOUND.YBOUND) 

OUTLINE  THE  WINDOW  WE  HAVE  JUST  DEFINED,  THEN  DRAW  THE  FIGURE. 

CALL  UOUTLN 
CALL  DRWFIG 
1 CONTINUE 

WRAP-UP  ALL  GRAPHIC  ACTIVITY  AND  TERMINATE  THE  FORTRAN  PROGRAM 

CALLUEND 
STOP 
END 

SUBROUTINE  USED  TO  GENERATE  A PENTAGON  WITHIN  A CIRCLE  & PAUSE. 
SEVERAL  GCS  UTILITY  SUBROUTINES  ARE  UTILIZED  BUT  NOT  DESCRIBED 
AT  THIS  POINT.  (SEE  CHAPTERS  V AND  VI  FOR  DETAILS) 

SUBROUTINE  DRWFIG 
CALL  UCRCLE  (0.,0.,25.) 

CALL  UPLYGN  (0  ,0.  5 ,12.5) 

CALLUBELL 
CALLUPAUSE 
RETURN 
END 


EXAMPLE  111-4 
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call,  uttart 
DO  I I - LO 
**ai  i mmjg 

XBOUO  ■ M.  - «.  » FLOAT CX— l 33 
TB0UN3  - 6».  - C2.S  » FLOAT  Cl- 03 
CALL  IMZMW  C-XBOUND,  XBOLND,  -YBOUH>.  YDOUK>3 
CALL  UJUTLN 


l CONTINUE 
CALL  UEND 


END 

SUBROUTINE  DRUPZ8 
CALL  UCRCLE  CB.,B.,2S.3 
CALL  UPLYBN  12.63 

CALL  UBELL 
r*i  i upAUBE 


EM> 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ELEMENTARY  SIX-LEVEL 
C ZOOMING  BY  ADJUSTING  ONLY  THE  VIRTUAL  WINDOW  BOUNDARIES.  NOTE 
C THAT  THE  PEN  COMMANDS  REQUIRED  TO  DRAW  THE  FIGURE  REMAIN 

C UNCHANGED.  ALSO  NOTE  THE  CLIPPING  OF  THE  DISPLAY  AT  THE  WINDOW 

C BOUNDARY. 

C 

C ENTER  GCS  AND  SETUP  A LOOP  TO  PERMIT  US  TO  ZOOM  TOWARD  FIGURE. 

C 

C CALL  USTART 

DO  1 1-1,6 

ERASE  THE  SCREEN  AND  DEFINE  THE  BOUNDARIES  FOR  OUR  NEW  WINDOW. 
CALL  UREASE 

BOUNDS  - 1 00.-0  5.*FLOAT(l-1 )) 

CALL  UWINDO  (O..BOUNDS.O., BOUNDS) 

OUTLINE  THE  WINDOW  WE  HAVE  JUST  DEFINED,  THEN  DRAW  THE  FIGURE. 

CALL  UOUTLN 
CALL  DRWFIG 

1 CONTINUE  / 

/ 

WRAP-UP  ALL  GRAPHIC  ACTIVITY  AND  TERMINATE  THE  FORTRAN 
PROGRAM. 

CALLUEND 
STOP 
END 

SUBROUTINE  USED  TO  GENERATE  A PENTAGON  WITHIN  A CIRCLE  AND 
PAUSE.  SEVERAL  GCS  UTILITY  SUBROUTINES  ARE  UTILIZED  BUT  NOT 
DESCRIBED  AT  THIS  POINT.  (SEE  CHAPTERS  V AND  VI  FOR  DETAILS). 

SUBROUTINE  DRWFIG 
CALL  UCRCLE  (50., 50., 50.) 

CALL  UPLYGN  (50., 50., 5., 25.) 

CALL  UBELL 
CALLUPAUSE 
RETURN 
END 


EXAMPLE  111-5 
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CALL  USTARTT 
DO  I I ■ I,  6 


BOUNDS  - IBS.  - CIS.  » PLXUTCZ~0> 
CALL  UU2MX)  C#.„ BOUNDS.#., BOUNDS) 
CALL  UOUTLN 
CALL  DRUTIS 
I CONTINUE 
CALL  UEM> 


END 

SUBROUTINE  DRUTIS 

CALL  UCRCLE  CSS.#6S. ,6B.> 

CALL  UPLYflN  CSS., SB. .6. ,26.) 


CALL  UPAUSE 
RETURN 
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THIS  PROGRAM  GENERATES  A SIMPLE  STREET  DIAGRAM  FOR  A TEKTRONIX 
401 0/401 3 TERMINAL. 

INITIALIZATION,  DEVICE  MODE  ENTRY,  AND  OUTLINE  GENERATION 

CALL  USTART 
CALL  USET  ('DEVICE') 

CALL  UOUTLN 

GENERATION  OF  ROADS  WITH  THE  DEFAULT  CASE  OF  LINES  IN  TERMS  OF 
INCHES 

CALL  UMOVE  (0.3,2  7) 

CALL  UPEN  (7.2,2  7) 

CALL  UMOVE  (7  2,2.1) 

CALL  UPEN  (4.5, 2.1) 

CALL  UPEN  (2  5,0.3) 

CALL  UMOVE  (1.7,0  3) 

CALL  UPEN  (3.7,21) 

CALL  UPEN  (0.3,21) 

GENERATION  OF  HOUSES  WITH  DASHED  LINES  IN  TERMS  OF  CENTIMETERS. 

CALL  USET  ('CENTIMETERS') 

CALL  USET  ('DASH') 

CALL  UMOVE  (12.5,5.0) 

CALL  UPEN  (15.5) 

CALL  UPEN  (15.2.5) 

CALL  UPEN  (12.5.2.5) 

CALL  UPEN  (12.5,5) 

CALL  UMOVE  (5.,7.5) 

CALL  UPEN  (11.3,7.5) 

CALL  UPEN  (11.3,10.0) 

CALL  UPEN  (5  ,10.) 

CALL  UPEN  (5  ,7.5) 

GENERATION  OF  DIRECTION  REFERENCES  WITH  ARROW  LINES  IN  TERMS  OF 
PERCENTUNITS 

CALL  USET  ('PERCENTUNITS') 

CALL  USET  ('ARROW') 

CALL  UMOVE  (10  ,80) 

CALL  UPEN  (20., 80.) 

CALL  UMOVE  (15  ,75.) 

CALL  UPEN  (15  ,85.) 

TERMINATION 

CALLUEND 

STOP 

END 


EXAMPLE  111-6 
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CALL 

CALL 


CALL 


UCTAKT 

user  c'oevxceo 

UJUTLN 

UHOVe  <6.9.2.73 
UPCN  <7.2*2.73 
UHOVe  <7.2*2.13 
UPCN  <4.6,2.13 
LPBN  <2.6,6.93 
UMOVC  <l.},6.93 
UT2N  <9.7,2.13 
UPBN  <6.9,2.13 
U6CT  C'CENTXHT- 

uarr  c'da*h'3 

UMOVC  <12.6,6.63 
UPCN  <16. ,6. 3 
UPCN  <16. .2.63 
WIN  <12.6,2.63 
UPCN  <12.6.6.3 
UM0V2  <6. ,7.63 
UP2N  <11.9.7.63 
UPBN  <11.9.16.63 
UPCN  <6., 16.3 
UPCN  <6. .7.63 
U6ET  <'POK»mJKrT«'3 
U6KT  C'AftROU'3 
UMOVC  <16. .66. 3 
UTCN  <26. ,66.3 
WOVE  <16.. 76.3 
UPCN  <16. ,66. 3 
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THIS  PROGRAM  GENERATES  THE  SAME  DISPLAY  AT  VARIOUS  LOCATIONS 
ON  A TEKTRONIX  401 0/401 3 TERMINAL. 

INITIALIZATION  AND  OUTLINE. 

CALL  USTART 
CALL  UOUTLN 

FOR  EACH  OF  3 PASSES,  DEFINE  A DEVICE  WINDOW  AND  DRAW'  THE  GRAPH. 
D010I-1.3 

IFO.EQ.UCALL  UDAREA  (2.,5.,0.,3.) 

IF(I.EQ.2)CALL  UDAREA  (4.5, 7.5, 0.5, 3.5) 

IF(I.EQ.3)CALL  UDAREA  (2.5,5.5,2.5,5  5) 

CALL  SUBROUTINE  TO  DRAW  GRAPH. 

10  CONTINUE 

TERMINATION 


CALLUEND 

STOP 

END 

SUBROUTINE  USED  TO  DRAW  GRAPH. 


SUBROUTINE  GRAFIT 
CALL  UMOVE  (10  ,1 0,10.) 

CALL  USET  ('LINE') 

CALL  UPEN  (90.10.) 

CALL  UMOVE  (20., 10.) 

CALL  UPEN  (30  ,70.) 

CALL  UPEN  (70.  70.) 

CALL  UPEN  (80  ,10.) 

CALL  UMOVE  (30., 70.) 

CALL  USET  ('DOUBLEARROW') 
CALL  UPEN  (40., 10.) 

CALL  UPEN  (50., 70.) 

CALL  UPEN  (60., 10.) 

CALL  UPEN  (70., 70.) 

RETURN 

END 


EXAMPLE  111-7 
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CALL  U9TART 
CALL  UOUTLN 
PO  li  I • L S 

I r CJ  .BQ.  b CALL  UPAREA  C2. ,9. ,9. ,3. 9 
JF  a .00.  tt  CALL  UPAREA  <4.6,  7.4.6. B.  3. 69 
I T CX  .00.  99  CALL  UPAREA  <2. 5, 6. 6, 8.6,6.69 


CALL  MAPI 
OONTXHUe 
CALL  UEMP 


SUBROUTINE  8RAFXT 
CALL  UMOVO  09.,  19.9 
CALL  uorr  C'LJNOO 
CALL  UPON  CM..  10.9 
CALL  UHOVO  CM.,  10.9 
CALL  UTOI  CM., 79. 9 
CALL  UPQ4  C79..79.9 
CALL  UPON  CM..  10.9 
CALL  UMOVE  CM.. 79. 9 
CALL  UOOT  C'PnUPLEAlO 
CALL  UPtM  C49.,  19.9 
CALL  UPtM  CM. .79. 9 
CALL  UPENCM.,  10.9 
CALL  UPtM  CTO. .79. 9 
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C THIS  PROGRAM  GENERATES  A DISPLAY,  A VERTICALLY  DISTORTED 
C VERSION  OF  THE  DISPLAY,  AND  A HORIZONTALLY  DISTORTED  VERSION  OF 
C THE  DISPLAY  FOR  A TEKTRONIX  4010/401 3 TERMINAL 

C 

C INITIALIZATION 

C 

CALLUSTART 

FOR  EACH  OF  3 PASSES,  ERASE  THE  SCREEN,  PROVIDE  AN  OUTLINE,  DEFINE 
THE  DEVICE  WINDOW,  AND  DRAW'  THE  GRAPH 

DO  101=1,3 
CALL  UERASE 
CALL  UDAREA  (0  ,7.5,0  .5,5) 

CALL  UOUTLN 

IFO.EQ  2)CALL  UDAREA  (0., 7.5, 2.4.4.) 

IFO.EQ  3)CALL  UDAREA  (3  .5  ,0  ,5  5) 

CALL  UMOVE  (50 ,20.) 

CALL  UPEN1  (50  ,80  .'DOUBLEARROW') 

CALL  UMOVE  (10,90) 

CALL  UPEN  (50  ,65.) 

CALL  UPEN  (100  ,65) 

CALL  UMOVE  (10  ,90.) 

CALL  UPEN  (50  ,50.) 

CALL  UPEN  (100  ,50  ) 

CALL  UMOVE  (10  ,90.) 

CALL  UPEN  (50  ,35  ) 

CALL  UPEN  (100  .35.) 

10  CONTINUE 

TERMINATION 

CALL UEND 
STOP 
END 
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CM L UOTART 
PO  10  I - I,  3 
f»M  I 

CALL  UOAMCA  CO.. 7.4,8. .6.0 
GALL  UOUTU4 

2 T Cl  .CO.  e>  CALL  UPAREA  C0.,7.4*  4.> 

Z r CX  .CO.  3>  CALL  UDARCA  C3. , 6., 

CALL  UHOVC  C68.,C8.> 

CALL  UTOIt  C6a.,a8.,'POUPLCA**0U'> 


CALL  UPCH  CEO., 
CALL  UPCH  Cl Ot 
CALL  UHOVC  <tt 


oa.> 

..as. > 
..aa.> 


[► 


CALL  UPCH  Cl 
CALL  UHOVC  Clt 


ooo  ooo  ooo  ono  ooooo  ooo 


C 

C 

C 


THIS  PROGRAM  DEMONSTRATES  HOW  TO  SUPPORT  DEVICE 
INDEPENDENCE 


DIMENSION  ARRAY  (8) 

INITIALIZE 

CALLUSTART 

SET  'DEVICE'  UNITS  TO  PERCENTUNITS'  and  call  UDAREA  for  1 00%  SINCE 
ONE  PERCENTUNIT  IN  THE  X MAY  DIFFER  FROM  ONE  PERCENTUNIT  IN  THE  Y, 
RESET  TO  INCHES'  AND  THEN  DIVIDE  SCREEN 

CALL  USET  ('PERCENTUNITS') 

CALL  UDAREA  (0..1 00  ,0.,1 00.) 

CALL  USET  {'INCHES  ) 

CALL  USTUD  ('ARRAY') 

ASSUME  SCREEN  IS  LONGER  IN  X 

XMIN  - ARRAY(5) 

XMAX  - AMIN1  (ARRAY(6)/2.,ARRAY(8)) 

YMIN  - ARRAY(7) 

YMAX  = XMAX 

PLOT  THE  SAME  FIGURE  ON  HALF  OF  THE  SCREEN 

CALL  UDAREA  (XMIN, XMAX, YMIN, YMAX) 

CALL  UOUTLN 
CALL  FIGURE 

CALL  UDAREA  (XMAX, XMAX*2., YMIN, YMAX) 

CALL  UOUTLN 
CALL  FIGURE 

TERMINATION 

CALLUEND 

STOP 

END 

SUBROUTINE  TO  GENERATE  A POLYGON 

SUBROUTINE  FIGURE 
CALL  UPLYGN  (50  ,50  , 5., 25.) 

RETURN 

END 
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CHAPTER  IV 


ALPHANUMERIC  OUTPUT 


Basic  Alphanumeric  Output 

Under  many  circumstances,  the  graphics  programmer  would  prefer  to  manipulate 
alphanumeric  data  with  the  same  ease  that  pertains  to  strictly  graphical  information. 
Such  a capability  would  expedite  the  labeling  of  figures,  allow  numerical  values  to  be 
printed  at  a specific  location  on  the  display,  and  permit  a discrete  separation  of  text  from 
graphical  information  should  the  user  so  desire.  In  order  to  provide  these  capabilities, 
GCS  has  incorporated  two  very  powerful  alphanumeric  output  and  editing  routines, 
UPRINT  and  UWRITE,  which  may  be  called  by  the  following  sequences: 

CALL  UPRINT  (X.Y.DATA) 

CALL  UWRITE  (X.Y.DATA) 

X and  Y are  used  to  specify  the  starting  position  (in  current  units)  of  the  first  character  of 
the  output  text.  All  positional  and  coordinate  addressing  related  to  characters  is 
assumed  to  specify  the  position  of  the  lower-left  corner  of  the  given  character.  DATA  is 
interpreted  in  the  following  manner,  based  upon  one  of  the  four  options  available  to  the 
user  through  a call  to  USET  before  invoking  UPRINT  or  UWRITE: 

A.  TEXT —Under  this  default  option,  the  routines  will  assume  that  DATA  contains 
Hollerith  information  delimited  by  a terminator  and  will  output  all  text  up  to,  but 
not  including  that  delimiter,  beginning  at  the  location  specified  by  (X,Y).  CALL 
UPSET  ('TERMINATOR',  CHARACTER)  can  change  the  terminator  from  the 
default  backslash  character.  There  are  four  'hardware'  character  sizes  that 
can  be  changed  by  CALL  USET (SIZE)  where  SIZE  can  be  'EXTRALARGE', 
LARGE'.  MEDIUM '.  or  SMALL'  (default). 

B.  REALNUMBER—  DATA  is  assumed  to  be  a single-valued  parameter  whose 
contents  is  assumed  to  be  of  type  REAl.  Editing  will  iake  place  using  'G' 
format,  and  the  text  will  be  printed  beginning  at  (X,Y). 

C.  INTEGER— As  in  the  case  of  REALNUMBER,  DATA  is  assumed  to  be  single- 
valued and  of  type  REAL  The  routines  will  perform  a REAL  to  INTEGER 
conversion  and  will  print  the  result  in  T format. 

D.  XYCOORDINATES— DATA  is  assumed  to  be  a 2 element  REAL  array  whose 
values  specify  two  numbers  to  be  editted  and  printed  in  the  form:  (X.Y). 

UPRINT  and  UWRITE  perform  identical  functions  and  differ  only  in  the  action  taken  upon 
return  from  execution  of  the  given  subroutine.  Upon  exit,  UWRITE  moves  the  beam 
position  back  to  its  original  coordinates  at  the  time  it  was  invoked,  whereas  UPRINT 
leaves  the  beam  position  at  the  end  of  the  output  text.  Example  IV-1  illustrates  the  four 
options  above 

Alphanumeric  output  through  GCS  is  perhaps  most  conveniently  manipulated  through 
the  use  of  FONTUNIT  coordinates  under  DEVICE  mode  Under  this  USET  option,  the 
(X.Y)  coordinates  are  expressed  directly  in  number  of  characters  horizontally  or 
vertically 


Margining 

Since  alphanumeric  output  through  UPRINT  and  UWRITE  is  unaffected  by  the  virtual 
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window  (when  in  VIRTUAL  mode),  the  user  is  provided  the  capability  to  horizontally  and 
vertically  margin  his  output  (when  in  device  mode)  through  an  invocation  to  UMARGN: 

CALL  UMARGN  (XLEFT.XRIGHT.YBOTTM.YTOP) 


t 

! 


XLEFT  and  XRIGHT  represent  the  desired  left-most  and  right-most  horizontal  positions 
expressed  in  DEVICE  units  within  which  alphanumeric  output  may  be  permitted. 
Maximum  and  minimum  vertical  margins  are  established  by  YBOTTM  and  YTOP 
respectively.  Should  values  of  XLEFT,  XRIGHT,  YTOP,  and  YBOTTM  be  specified  such 
that  XRIGHT  < XLEFT  or  YTOP  < YBOTTM  UMARGN  will  ignore  the  specified  setting 
and  the  margins  will  reflect  their  values  prior  to  the  call  to  UMARGN. 

Margining  affects  alphanumeric  output  (when  in  device  mode)  in  the  following  manner: 

A.  Should  any  character  extend  beyond  the  right  margin,  an  automatic  carriage 
return  and  line  feed  are  generated,  followed  by  a position  to  the  left  margin  and 
output  resumed. 

B.  Should  the  user  position  the  oeam  at  a location  to  the  left  of  the  left  margin,  the 
beam  is  positioned  to  the  left  margin  before  output  is  initiated. 

C.  Should  output  be  attempted  at  vertical  positions  outside  the  closed  interval 
defined  by  the  minimum  and  maximum  vertical  margins,  the  beam  is  moved  to 
the  maximum  vertical  margin  before  any  output  is  begun. 

See  Example  IV-2  for  an  example  of  margining. 


Bulk  or  Mixed  Alphanumeric  Output 

For  applications  requiring  bulk  or  mixed  alphanumeric  output,  the  graphics  programmer 
should  consider  the  use  of  subroutine  UPRNT1  and  UWRIT1,  which  may  be  invoked  by 
the  following  calling  sequence: 

CALL  UPRNT1  (DATA, OPTION) 

CALL  UWRIT1  (DATA, OPTION) 

OPTION  is  a single-valued  character  variable  which  specifies  the  format  or  mode  under 
which  DATA  is  to  be  editted  and  displayed;  i.e.,  TEXT,  REALNUMBER,  GREEN,  etc.  DATA 
specifies  the  actual  information  which  is  to  be  output  by  UPRNT 1 and  UWRIT 1 under  the 
given  OPTION.  It  should  be  noted  that  the  constraints  on  DATA  are  identical  to  those 
imposed  by  UPRINT  and  UWRITE. 

UPRNT1  and  UWRIT1  differ  from  UPRINT  and  UWRITE  in  the  following  respects: 

A.  Since  no  coordinate  specifications  are  passed  in  the  calling  sequence,  the 
alphanumeric  output  will  begin  at  the  current  beam  position  upon  entry  to  the 
subroutine. 

B The  effects  of  OPTION  apply  only  to  the  current  output  operation  and  upon  exit 
from  the  subroutine  these  effects  are  removed  from  the  GSA. 


Fortran  Input-Output 

For  alphanumeric  output  used  in  interactive  input-output  communications  and  various 
control  and  coordination  activities  (such  as  the  printout  of  warning  or  error  notifications), 
the  convenience  of  permitting  the  use  of  normal  FORTRAN  input-output  statements  may 
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override  the  advantages  of  using  UPRINT  or  UWRITE  to  process  text.  For  such  activities 
to  be  performed  successfully,  it  is  essential  that  the  terminal  device  be  set  for  the  receipt 
of  alphanumeric  rather  than  graphic  information,  a task  which  is  accomplished  through  a 
call  to  UALPHA.  On  systems  that  buffer  the  graphics  output,  UALPHA  must  be  called 
prior  to  the  Fortran  I/O  to  flush  the  graphics  output.  It  should  be  noted  that  all 
alphanumeric  FORTRAN  output  is  unaffected  by  the  margins  established  by  the  user. 

Single  Character  Output 

In  isolated  instances,  it  is  desirable  to  combine  the  output  of  graphical  and  alphanumeric 
information  into  one  composite  operation.  This  capability  is  provided  through  the 
CHARACTER'  option  available  with  UPEN,  whereby  a single  printable  character  used  as 
a parameter  to  USET  identifies  that  parameter  as  the  current  character  for  printing 
Thus,  in  order  to  print  the  character  'A'  at  (X,Y),  the  following  commands  would  be 
specified 


CALL  USET  ('LA') 

CALL  UPEN  (X,Y) 

Upon  execution  of  the  call  to  UPEN,  the  character  A'  will  terminate  the  line  drawn  under 
the  current  line  option  It  should  be  noted  that  the  CHARACTER  mode  of  operation  used 
in  the  above  manner  will  remain  in  effect  until  any  one  of  the  acceptable  UPEN  suffixes  is 
specified;  e g.,  CALL  USET  ('LNULL').  See  Example  IV-3. 

An  additional  facility  for  single-character  output  is  provided  through  subroutine  UAOUT 
which  is  called  in  the  following  manner: 

CALL  UAOUT  (CHAR) 

CHAR  is  a single  character  expressed  in  Hollerith  format  either  as  a quoted  character 
string  or  as  an  explicit  variable  Since  UAOUT  outputs  the  given  character  at  the  current 
beam  position,  the  user  should  ensure  that  the  beam  is  positioned  to  the  proper 
coordinates  before  invoking  UAOUT.  Character  output  through  UAOUT  is  subject  to  the 
current  margin  constraints  applicable  to  UPRINT  and  UWRITE:  in  addition  this  output 
differs  from  that  available  through  UPEN  in  that  UAOUT  positions  the  beam  to  next 
character  position  after  the  specified  character  has  been  printed,  whereas  the  UPEN 
option  always  maintains  the  beam  position  at  the  center  of  the  desired  character  See 
Example  IV-4  and  compare  to  Example  IV-3. 


Software  Character  Output 

The  preceding  discussion  of  alphanumeric  output  has  been  applicable  only  to 
HARDWARE  character  generation  Under  certain  circumstances,  however,  the  sophisti- 
cated userjnay  desire  character  output  which  is  rctated  or  scaled  to  suit  a particular 
application.  For  examples  see  Example  IV-5.  and  IV-6  This  capability  is  provided  in 
GCS  through  the  SOFTWARE  character  option  available  through  USET.  Under  this 
pP^.a"  outPut  is  subject  to  the  constraints  imposed  by  the  virtual  window,  whenever 
UPRINT  is  called  in  'VIRTUAL'  space  Although  SOFTWARE  characters  are  manipulated 
using  the  same  routines  as  those  for  output  of  HARDWARE  characters,  interested  users 
are  directed  to  the  relevant  subroutine  writeups  for  a discussion  of  the  limitations 
imposed  on  this  form  of  output 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  OPTIONS  AVAILABLE  THROUGH 
C 'UPRINT'  AND  'UWRITE'.  DEFAULT  VIRTUAL  WINDOW  AND  DEVICE  AREA  WILL 
C BE  USED. 

C 

C DEFAULT  OPTION  FOR  UPRINT'  AND  'UWRITE'  IS  FOR  TEXT'.  USE  THIS 
C DEFAULT  TO  OUTPUT  A LINE  OF  TEXT  AT  SAMPLE  COORDINATE  LOCATION 

C (0  .1 00.)  NOTE  THE  SEMICOLAN(;>  IS  THE  DELIMITER. 

C 

CALLUSTART 

CALL  UPSET  ('TERMINATOR',';') 

CALL  UPRINT  (0  .1 00., 'THIS  IS  A SAMPLE  LINE  OF  OUTPUT  TEXT;' 

SPECIFY  THE  'REALNUM8ER'  OF  OPERATION  AND  USE  UWRITE  TO  PRINT  AT 
MIDSCREEN  (50., 50.)  A TYPICAL  REAL  NUMBER  (100.) 

CALL  USET  CREALNUMBER') 

CALL  UWRITE  (50  ,50  ,1 00.) 

SPECIFY  'INTEGER'  MODE  AND  PRINT  AT  COORDINATES  (75., 25.)  THE 
SAMPLE  INTEGER  -1  23456789  NOTICE  THAT  SINCE  ALL  GCS  PARAMETERS 
ARE  REAL  NUMBERS,  EVEN  THIS  INTEGER  MUST  BE  PASSED  IN  REAL 
NUMBER  FORM  I.E.  -1  23456789. 

CALL  USET  ('INTEGER') 

CALL  UPRINT  (75., 25  ,-1  23456789.) 

EXAMPLE  OF  USING  XYCOORDINATE'  OPTION  TO  PRINT  XYCOORDINATES. 
NOTE  THE  VARIED  FORM  OF  OUTPUT  OF  REAL  NUMBERS  WITH  'G'  FORMAT 

FIRST  ESTABLISH  A 2-COORDINATE  ARRAY:  COORD(2).  PUT  SAMPLE  DATA 
POINT  (25..0.9999999E1 9)  IN  ARRAY.  NOTE  THAT  COORDINATES  SPECIFIED 
IN  ARRAY  COORD  ARE  PRINTED.  THEY  MAY  OR  MAY  NOT  BE  SAME  AS 
COORDINATES  WHICH  SPECIFY  WHERE  PRINTING  IS  TO  OCCUR. 

DIMENSION  COORD  (2) 

DATA  COORD725..0.9999999E  1 9/ 

CALL  USET  ( XYCOORDINATE  ) 

CALL  UWRITE  (25.,75.,COORD) 

END  GCS  (CALL  UEND);  STOP  EXECUTION  (STOP),  END  PROGRAM  (END) 

CALLUEND 
STOP 
END 


EXAMPLE  IV-1 
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1XX»  as  A 8AM>LE  LINE  OF  OUTPUT  TEXT 


C26...II 


*-129460788 


DCCHEMXQN  IWr> 

OATA  00000/26., 9. 8888888E 18/ 
ftui  IBTTART 

CALL  UP8ET  C' TERMINATOR', 'i') 

UlL  “ A U>*  OUTPUT 

CALL  WRITE  CS0..26..  |M.) 

CALL  U8ET  C'XNTEOER'7 

CALL  tPRXKT  C76., 8. ,-129460788. 7 

CALL  UOET  C'XVCOORoiHATEQ 

call  write  <2s..60.. coord? 

Call  uem> 
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C SAMPLE  PROGRAM  TO  ILLUSTRATE  OPTIONS  AVAILABLE  THROUGH 

C MARGINING.  DEFAULT  VALUES  WILL  BE  USED  IN  THIS  EXAMPLE  WITH 
C ADDITIONAL  CALLS  TO  UMARGN  TO  ADJUST  THE  ALPHANUMERIC  WINDOW. 
C THIS  PROGRAM  WAS  WRITTEN  FOR  A TEKTRONIX  401 0/401 3 TERMINAL. 

C 

C 

C SET  UP  300  CHARACTER  ARRAY  NAMED  SAMPLE;  PUT  TEXT  IN  IT.  NOTE 

C SEMICOLON  (;) 

CHARACTER  SAMPLE*300 

DATA  SAMPLE/'THIS  IS  A LINE  OF  OUTPUT  TEXT  WHICH  IS  LONG  ENOUGH  TO 
CAUSE  THE  ALPHANUMERIC  OUTPUT  TO  WRAP-AROUND.  NOTE  THE 
EFFECTS  WHICH  THE  DEFAULT  MARGINS  HAVE  UPON  OUTPUT;'/ 

INITIALIZE 

CALL  USTART 


NOW  PRINT  IT  WITH  FIRST  CHARACTER  OF  PRINT  STRING  AT  COORDINATE 
LOCATION  (20,25) 

CALL  USET  ('DEVICE') 

CALL  USET  ('PERCENTUNITS') 

CALL  UPRINT  (20., 25., SAMPLE) 

SECOND  EXAMPLE 

EXAMPLE  ILLUSTRATING  THE  USEFULNESS  OF  MARGINING.  THE  MARGINS 
WILL  BE  SET  USING  'FONTUNIT'  COORDINATE  ADDRESSING  WITH  THE  LEFT 
MARGIN  AT  APPROXIMATELY  MID-SCRENE,  I.E.  35  CHARACTER-WIDTHS  OR 
FONTUNITS  FROM  THE  LEFT  EDGE,  AND  THE  RIGHT  MARGIN  1 FONTUNIT 
LATER  AT  POSITION  36,  GIVING  A TOTAL  MARGIN  WIDTH  OF  ONE 
CHARACTER. 

CALL  UPSET  ('TERMINATOR', ';') 

CALL  USET  ('FONTUNIT') 

CALL  UMARGN  (35..36..1  .,35.) 

POSITION  PRINTING  AT  TOP  OF  PAPER.  IN  THIS  EXAMPLE  WE  SPECIFY  4000 
CHARACTER-HEIGHTS  (FONTUNITS)  FROM  BOTTOM  OF  PAPER,  AN 
UNREASONABLY  LARGE  VALUE,  SO  GCS  DEFAULTS  TO  THE  LARGEST 
PHYSICALLY  POSSIBLE  VALUE,  THE  TOP  OF  THE  PAGE. 

CALL  UPRINT  (0., 4000.,  HELLO  THERE!;') 

WRAP  UP 

CALL  UEND 

STOP 

END 


EXAMPLE  IV-2 
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H 

E 

L 

L 

0 

T 

H 

E 

R 

E 

I 


1 


THIS  XS  A LINE  OP  OUTPUT  TEXT  WHICH  X8  UOHO  ENOUQH  TO  CAUS 
F.  NOTE  THE  EPTECTS  MUCH  THE  PEPA 
ULT  HAEWHi  HAVE  UPON  OUTPUT 


character  

OATA  SAMPLE/*TKES  X8  A LINE  OP  OUTPUT  TEXT 
f yny  iS  LONC  ENOUSH  TO  CAUSE  THE  ALPHANUOOC 
A OUTPUT  TO  WRAP-AROUND.  NOTE  THE  EPPECIS  WHICH  THE 
* DEFAULT  MARAXNS  HAVE  UPON  OUTPUT j '3 
mi  i USTART 

call  upset  <'Terkinator',',o 
CALL  U8ET  C'PERCENTtJNXTSO 
CALL  U8ET  C' DEVICE '5 
CALL  UPraNT  C2S.,  26..  SAMPLE) 

CALL  U8ET  ('POKHkETS') 

CALL  UHARSN  <36. ,30.,  I .,36.) 

CALL  UPRINT  CS .,  4SSO .,  'HELLO  THERETO 
CALL  UEND 


END 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  SINGLE  CHARACTER  OUTPUT 
AND  LINE  TERMINATOR  OPTIONS  AVAILABLE  THROUGH  'UPEN'.  TWO 
GRAPHS  WILL  BE  PLOTTED. 

(1)  A LINEAR  EQUATION  (Y-X).  THE  DATA  FOR  PLOTTING  IT  WILL  BE 
PRESTORED  WITH  THE  VALUES  OF  THE  INDEPENDENT  VARIABLE  X IN 
THE  ARRAY  X AND  CORRESPONDING  VALUES  OF  Y IN  THE  ARRAY  Y. 

(2)  A QUADRATIC  EQUATION  (2-  (.1  *X)“2).  THE  DATA  VALUES  FOR  THE 
SAME  VALUES  OF  THE  INDEPENDENT  VARIABLE  X WILL  BE  STORED 
IN  THE  Z ARRAY. 

DEFAULT  VIRTUAL  WINDOW  AND  DEVICE  AREA  WILL  BE  USED.  THE  LINEAR 
EQUATION  WILL  HAVE  AN  A'  TERMINATOR  AT  THE  END  OF  VISIBLE  LINE 
SEGMENT.  WHEREAS  THE  QUADRATIC  EQUATION  WILL  HAVE  A B' 
TERMINATOR  FOR  EACH  INVISIBLE  LINE  SEGMENT. 

FIRST  SET  UP  X.Y,  & Z ARRAYS.  PRESTORE  DATA  IN  THEM 

DIMENSION  X(11),Y(1 1).Z(11) 

DATA  X/O.,1 0.20., 30,40., 50., 60., 70., 80., 90.,  1 00/ 

DATA  Y/O.,1 0..20.,30.,40.,50.,60.,70.,80.,90.,1 00./ 

DATA  Z/O.,1  ..4..9..1 6.,25.,36..49.,64.,81  ..1 00./ 

ENTER  GCS  AND  DRAW  OUTLINE  OF  DEFAULT  WINDOW 

CALL  USTART 
CALL  UOUTLN 

USTART  HAS  IMPLICITLY  SET  PEN  TO  SOLID-LINE  MODE.  NOW  SPECIFY 
THAT  AN  'A'  TERMINATOR  SHOULD  GO  ON  EVERY  LINE  AND  MOVE  TO  INITIAL 
(X,Y)  POINT  TO  BE  PLOTTED 

CALL  USET  ('LA') 

CALLUMOVE  <X(1),Z(1)) 

DRAW  1 1 LINE  SEGMENTS  X(1  ).Y(1 ) TO  X(2).Y(2)  TO  X(3),Y(3)  AND  SO  ON  TO 
X(1 1 ),Y(1 1 ) THEREBY  PLOTTING  TOTAL  EQUATION 

DO  1 1-1,11 

1 CALL  UPEN  (X(I),Y(D) 

SET  LINE  TYPE  TO  'NOLINE'  AND  SPECIFY  THAT  A B'  TERMINATOR  IS  TO  BE 
USED  FOR  EACH  INVISIBLE  LINE  SEGMENT 

CALL  USET  (NB) 

MOVE  TO  FIRST  (X.Z)  POINT,  THEN  PLOT  1 1 (X.Z)  VALUES 

CALLUMOVE  (X(1).Z(1) 

DO  2 1— 1.1 1 

2 CALL  UPEN  (X(I).Z(O) 

WRAP  UP 

CALL  UEND 

STOP 

END 


EXAMPLE  IV-3 
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data 

data 

mta 


CALL 

CALL 


00  I 
I CALL 


DO  2 
2 CALL 
CALL 


XCtO.  YC1 15,  2<||> 

22 « , 22 • , 42 • , 22 • , 02 • , 72 » ^ 22* , 22  * # 122 ./ 
Y/2., 12. ,22. ,92. ,42. .62. ,02. ,72. ,82. ,22.. 122./ 
2/2.. I .,4., 2., 12., 26., 22. ,42., 04., 21 .. 122./ 
UOTaKT 
UCUTLN 
U2CT  {'LAO 
UMOVE  OCCD.ZCI55 
I - 1.  II 
UPEN  CXGC5.YCX55 
U2ET  ('»') 

UMOVE  CXC15,Z<I55 

I - I.  II 

UPEM  CXCX5.ZCZ55 

uew> 


CM> 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  CHARACTER  TERMINATOR  AND 
C A/N  OUTPUT  USED  IN  CONJUNCTION  WITH  GRAPHICAL  OUTPUT  FOR  A 
C TEKTRONIX  4010/401 3 TERMINAL. 

C 

CHARACTER  ROUTINE*7(4) 

DATA  INDEX.YO/0,5.73/ 

DATA  ROUTINE/'UPEN;','UAOL'T  ;7UPRINT  ;7UWRIT  1 ;7 

ENTER  GCS,  0IVI0E  PLOTTING  AREA  INTO  4 EQUAL  SEGMENTS,  CHOOSE 
ONE  OF  THESE  SEGMENTS,  AND  OUTLINE  IT 

CALLUSTART 
CALL  USET  ( TERMINATOR', 

D05I-1.2 
XO  = -1 .82 
YO=  YO-2.86 
DO  5 J = 1 ,2 
XO  = XO+  2.86 
INDEX-INDEX+1 

CALL  UDAREA  (XO,(XO  + 2.57), YO  (YO  + 2.57)) 

CALL  UOUTLN 

MOVE  TO  THE  ORIGIN  & SPECIFY  STANDARD  LINE  WITH  NO  TERMINATOR.  IF 
'UPEN'  OPTION  IN  EFFECT,  SPECIFY  AN  A'  AS  THE  TERMINATOR 

CALL  UMOVE  (0  ,0.) 

CALL  USET  ('LNULL') 

IFONDEX  EQ  1)  CALL  USET  ( LA  ) 

DISPLAY  A LINE  THEN  BRANCH  TO  ONE  OF  FOUR  ROUTINES  TO  PRINT  AN  'A' 
AT  THE  END  OF  THE  LINE  SEGMENT 

DO  4K“1,4 

CALL  UPEN  ((25.'FLOAT(K)),(25.'FLOAT(K))) 

GOTO  (4, 1,2, 3),  INDEX 

1 CALL  UAOUT  ( A;') 

GO  TO  4 

2 CALL  UPRNT1  ('A;'.  TEXT  ) 

GO  TO  4 

3 CALLUWRIT1  ('A;'. 'TEXT') 

4 CONTINUE 

DISPLAY  THE  NAME  OF  THE  ROUTINE  WHICH  WAS  USED  AT  BOTTOM  RIGHT 
CORNER  OF  WINDOW 

CALL  UPRINT  <75.,2..ROUTINE(INDEX)) 

5 CONTINUE 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THIS  FORTRAN  PROGRAM 

CALL  UEND 
STOP 
END 


EXAMPLE  IV-4 
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CHARACTER  R0UTXNE»7<47 

data  index. YR/R.e.ra/ 

DATA  ROUTXNE/'UPEN*','UA0UTj','UPRNT|j','UURXTIj'/ 
<>*i  i UgTART 

CALL  UPSET  C'TERfCENATOR',  O 

DO  6 X - 1.  2 

X8  - -1 .82 

Y8  - Y8  - 2.88 

DO  6 O a I,  2 

X8  - X8  ♦ 2.88 


CALL  UDAREA  CX8.  CX8*2.677.  Y8, CY»*2.673) 

CALL  UOUTLN 

CALL  UMOVE  C8.,8.:> 

f»Ai  i tneT  c'lnull'2 

IP  CXNDCX  .CO.  O CALL  U8ET  C'LAO 
D04K-  I.  4 

CALL  UPEN  CC2S . mELOATCIOD.  <26 . mELOATOO)? 
80  TO  <4,1.2,87,  XMMOC 

1 CALL  UAO/T  C'Aj'7 
80  TO  4 

2 CALL  UPRVTTl  <'A*  'TEXTO 
80  TO  4 

2 CALL  UURXTI  C'Aj ', 'TEXT'7 
4 CONTINUE 

CALL  UPRXNT  C7S.,2.,R0UT2NE<3NDEX77 
8 CONTINUE 
CALL  UN) 


IV 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ALPHANUMERIC  OUTPUT  VIA  THE 
C SOFTWARE'  CHARACTER  OPTION  AVAILABLE  UNDER  GCS.  THREE 

C EXAMPLES  ARE  INCLUDED:  A/N  OUTPUT  USING  THE  DEFAULT  SIZES  OF 
C SOFTWARE  CHARACTERS,  A SAMPLE  OF  ITALICIZED  OUTPUT,  AND  A 
C DEMONSTRATION  OF  REDUCED  AND  ROTATED  A/N  OUTPUT. 

C 

C ENTER  GCS,  OUTLINE  VIRTUAL  WINDOW,  & SPECIFY  THAT  SOFTWARE 
C CHARACTERS  ARE  TO  BE  USED 
C 

CALL  USTART 
CALL  UOUTLN 
CALL  USET  ('SOFTWARE') 

CALL  UPSET  ('TERMINATOR', 

OUTPUT  SOME  TEXT  WHICH  STARTS  AT  LOCATION  (1 0,5)  AND  USES  THE 
DEFAULT  SOFTWARE  CHARACTER  SIZE. 

CALL  UPRINT  (1 0., 5.,  DEFAULT  TEXT  SIZE ;') 

SPECIFY  THAT  ITALICIZED  CHARACTERS  ARE  DESIRED,  AND  OUTPUT  A 
STRING  WHICH  BEGINS  AT  LOCATION  (1 0,90). 

CALL  USET  ('ITALICS') 

CALL  UPRINT  (1 0., 90., 'SAMPLE  OF  ITALICS;') 

CHANGE  THE  CHARACTER  TYPE  BACK  TO  GOTHIC.  AND  SPECIFY  THE  SIZE 
OF  THE  NEW  SOFTWARE  CHARACTER  DESIRED  - 2 VIRTUAL  UNITS  BY  3 
VIRTUAL  UNITS. 

CALL  USET  ('GOTHIC') 

CALL  UPSET  ('HORIZONTAL', 2.) 

CALL  UPSET  ('VERTICAL', 3.) 

MOVE  TO  THE  ORIGIN  OF  THE  CURRENT  COORDINATE  SYSTEM,  AND 
PERFORM  A 45  DEGREE  ROTATION  ABOUT  THIS  ORIGIN. 

CALL  UMOVE  (0..0.) 

CALL  UROTAT  (45.) 

OUTPUT  A STRING  WHICH  BEGINS  AT  LOCATION  (40,0)  WITHIN  THE 
ROTATED  COORDINATE  SYSTEM. 

CALL  UPRINT  (40., 0., 'REDUCED  AND  ROTATED  CHARACTERS;') 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THE  FORTRAN  PROGRAM. 

CALL  UEND 
STOP 
END 


EXAMPLE  IV-5 
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SAMPLE  OF  ITALICS 


t 


DEFAULT  TEXT  SIZE 


CALL  USTART 
'SAUL  UCUTLN 

CALL  UPSET  ('TERMINATOR', ','? 

CALL  U8ET  C'SOFTUARE' ? 

CALL  VJPIONT  CIS., 6.,  'DEFAULT  TEXT  SITE,'? 
ftu  I UeET  C 'ITALICS'? 

CALL  UPSET  C' HORIZONTAL ',2.? 

CALL  UPSET  < 'VERTICAL', 3. ? 

CALL  UMOVE  <3. .•.? 
cai  i UROTAT  <46.? 

CALL  UPfONT  C4S.,S., 'REDUCED  AND  ROTATED  CHARACTERS,'? 
CALI  UEND 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  'UPRINT'  TO  OUTPUT  MIXED 
ALPHANUMERIC  DATA 

INITIALIZE  ALL  VARIABLES  WHICH  WILL  BE  USED 

CHARACTER  OPTION‘1 0(4)/'REALNUMBER',  'INTEGER',  'REALNUMBER', 
'INTEGER'/ 

CHARACTER  TITLE*6(2)/'X» 'V-  ;7 
DATA  X.Y./0..0./ 

ENTER  GCS  SET  UP  WINDOW  AND  DRAW  AXES 

CALL  USTART 
CALL  UOUTLN 
CALL  UWINDO  (-1  .,5.) 

CALL  UMOVE  (0..-.5) 

CALL  UPEN1  (0.,4.4.,'LARROW') 

CALL  UMOVE  (-.5,0) 

CALL  UPEN  (4.4,0., 'LARROW') 

MOVE  TO  ORIGIN  AND  MARK  IT 


CALL  UPEN  (X.Y.'NO') 

DRAW  A SEGMENT  OF  A PARABOLA,  MARK  THE  COORDINATES  AT 
INTERVALS  OF  .5  FOR  X AND  ALTERNATELY  OUPTUT  THE  VALUES  OF  X AND 
Y AS  REAL  AND  INTEGER. 


DO  1 1-1.4 
DO  2 J-1.5 
X-X+  10 
Y — X**2 

CALL  UPEN  (X.Y) 

2 CONTINUE 

CALL  UPEN  1 (X.Y.'NO') 

CALL  UPRNT1  (TITLEO  K'TEXT') 

CALL  UPRNT1  (X.OPTION(I)) 

CALL  UPRNT1  (TITLE(2),'TEXT') 

CALL  UPRNT1  (Y,OPTION(1 )) 

CALL  UMOVE  (X.Y) 

1 CONTINUE 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  PROGRAM. 


CALL  UEND 

STOP 

END 


EXAMPLE  IV-6 
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CHARACTER  OPTXON»10C-O 

DATA  OPTXOH/'REALMJHBER'.  'INTEBER'. 

ft  'REALNUH9ER',  'INTEDERV 

CHARACTER  TmjfM»C23//  X - j ' Y - ,'/ 
DATA  X.Y/9..0./ 
r ai  i USTaRT 

CALL  UP9ET  C'TERMINATOR'.','> 
r ai  i UoUTLN 

CALL  IftCC MX)  C-t..S..-l.,S.3 

CALL  UHOVE  C9.,-.63 

CALL  UPENI  C9.,4.4, 'LARROU') 

CALL  UHOVE  C-.6.0.5 

CALL  UPENI  (4.4,9. „ 'LARR0WO 

CALL  UPENI  CX,  Y, 'NO' 3 

DO  I I ■ I,  4 

00  20  - I.  S 

X - X ♦ .19 

Y - X*m« 

CALL  UPEN  CX,Y3 
2 CONTINUE 

CALL  UPENI  (X,Y,  'N0'3 
CALL  UPRNTI  CTXTLECI >.  'TEXTO 
CALL  UPRNTI  (X, 0PTX0NCI3 3 
CALL  UPRNTI  < TITLE C 23,  'TEXT '3 
CALL  UPRNTI  <Y,OPTXON(I33 
CALL  UHOVE  CX,Y3 
I COTTNUE 
CALL  UEND 
9T0P 
END 
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CHAPTER  V 

GRAPHICAL  AND  ALPHANUMERIC  INPUT 


| 

I 


The  following  section  discusses  the  facilities  within  GCS  that  are  available  for  entering 
data  of  a graphical  nature.  Not  all  implementations  of  GCS  can  be  used  for  such 
graphics  input.  For  example,  those  implementations  of  GCS  running  in  a batch  mode,  i.e., 
passive  graphics,  do  not  permit  graphical  input  For  these  applications,  the  routines 
discussed  below  are  disabled. 

For  a graphics  system  to  be  truly  interactive,  it  is  necessary  to  provide  the  user  with  the 
ability  of  communicating  information  of  a strictly  graphical  nature  to  his  graphics 
program.  Graphical  input  differs  from  conventional  FORTRAN  input  (i.e.,  READ,  etc.)  in 
the  following  areas: 

A.  Graphical  input  is  normally  performed  as  a composite  operation  involving  the 
transfer  of  positional  coordinate  information  from  the  terminal's  primary 
graphic  input  device  (cursor,  light  pen,  etc.)  in  conjunction  with  a single 
character  from  the  keyboard  (or  other  suitable  interrupt)  which  signals  the 
termination  of  the  input  operation. 

B.  Because  of  the  unique  nature  of  strictly  graphical  input,  standard  FORTRAN 
input  cannot  be  used  in  lieu  of  software  which  has  been  specifically  designed 
for  that  given  purpose. 

C.  Graphical  input  does  not  produce  any  extraneous  output  at  the  graphics 
terminal  when  entering  information,  in  contrast  with  standard  FORTRAN  free- 
formatted  input  which  alerts  the  user  through  the  use  of  a special  symbol  that 
input  is  requested,  and  echoes  the  input  information  as  it  is  entered. 


Positional  and  Character  Graphical  Input 

The  standard  positional  and  character  graphics  input  subroutine  implemented  within 
GCS  is  UGRIN,  which  may  be  called  by  the  following  sequence: 

CALL  UGRIN  (X,Y,CHAR) 

When  UGRIN  is  invoked,  the  terminal’s  primary  graphics  input  device  is  activated,  and 
remains  in  an  enabled  state  until  a character  is  entered  from  the  keyboard.  Upon  receipt 
of  the  character,  UGRIN  stores  it  into  CHAR  using  standard  FORTRAN  Hollerith  format, 
disables  the  primary  input  device,  and  transfers  the  positional  coordinates  (in  current 
units)  of  the  input  device  at  the  time  the  character  was  entered  into  X and  Y.  See 
Example  V-1 . 

Subroutine  UAIN  functions  in  the  same  manner  as  UGRIN,  except  that  no  positional 
information  is  returned  Since  the  terminal  remains  in  'limbo'  while  awaiting  input  from 
the  user,  UAIN  provides  a convenient  method  of  pausing  at  desired  points  during 
execution  of  a graphics  program. 

CALL  UAIN  (CHAR) 


Alphanumeric  Input  (Fortran) 

For  bulk  alphanumeric  input  used  in  conjunction  with  interactive  communications  and 


v-1 


I 


coordination  activities,  standard  FORTRAN  may  be  utilized  under  GCS  using  the  same 
criteria  outlined  in  Chapter  IV  for  FORTRAN  alphanumeric  output;  i.e.,  the  terminal  must 
be  placed  into  the  alphanumeric  mode  through  the  call  to  UALPHA  before  control  is 
relinquished  to  the  FORTRAN  input  routines.  It  should  be  emphasized,  however,  that 
although  FORTRAN  input  is  extremely  convenient,  the  use  of  FORTRAN  input 
procedures  significantly  reduces  the  efficiency  at  which  a graphics  program  executes; 
hence,  the  use  of  FORTRAN  I/O  should  be  avoided  whenever  possible. 

Alphanumeric  Input  (Graphical) 

An  alternative  method  of  alphanumeric  input  is  provided  to  the  graphics  programmer 
through  subroutine  UREAD: 

CALL  UREAD  (X.Y.DATA, COUNT, FLAG) 

X and  Y are  used  to  specify  the  starting  position  (in  current  units)  of  where  the 
alphanumeric  input  is  to  be  attempted.  UREAD  will  store  the  edited  input  into  DATA, 
based  upon  one  of  the  four  options  available  to  the  user  through  a call  of  USET  prior  to 
invoking  UREAD. 

A.  TEXT  — Under  this  default  option,  UREAD  will  accept  and  store  COUNT 
characters  into  DATA:  hence,  the  user  must  insure  that  DATA  has  been 
suitably  dimensioned  to  hold  the  number  of  characters  which  have  been 
requested.  Should  fewer  than  COUNT  characters  be  entered  as  input,  UREAD 
will  store  the  actual  number  of  characters  entered  into  FLAG,  and  blank-fill  the 
remaining  (CDUNT  - FLAG)  characters  of  DATA  It  should  be  noted  that 
UREAD  does  not  append  the  termination  character  to  the  end  of  the  input. 
Therefore,  the  user  is  responsible  for  inserting  this  character  via  UAPEND  if 
the  string  is  to  be  passed  as  a parameter  to  UPRINT  or  UWRITE. 

B.  REALNUMBER  — This  option  directs  UREAD  to  edit  the  alphanumeric  input  as 
a REAL  number,  and  to  store  the  resulting  floating-point  number  into  the 
single-valued  REAL  parameter  DATA.  Should  UREAD  encounter  any  illegal 
characters  during  the  edit,  FLAG  will  be  returned  with  a negative  value,  and 
DATA  will  be  undefined. 

C.  INTEGER  - As  in  the  case  o*REALNUMBER,  DATA  is  assumed  to  be  single- 
valued and  of  type  REAL.  UREAD  will  edit  the  alphanumeric  input  as  an 
INTEGER,  perform  an  INTEGER  to  REAL  conversion,  and  store  the  result  into 
DATA  The  user  may  check  if  the  operation  was  successfully  performed  by 
examining  FLAG  upon  return  from  UREAD 

D.  XYCOORDINATES  - This  option  directs  UREAD  to  accept  two  REAL 
numbers  (separated  by  a comma)  as  input  and  to  store  them  into  the  two 
element  REAL  array,  DATA  FLAG  is  set  to  reflect  the  status  of  the  input  and 
editing  operation. 

Under  REALNUMBER,  INTEGER,  and  XYCOORDINATES  options.  COUNT  is  used  to 
specify  the  number  of  variables  which  are  to  be  input  under  that  given  mode  For 
example,  if  two  integers  were  desired  io  be  read  into  DATA  at  virtual  location  (0.1 00  ),  the 
following  call  to  UREAD  could  be  used. 

CALL  USET  ( INTEGER  ) 

CALL  UREAD  (0.,1 00., DATA, 2., FLAG) 

Under  XYCOORDINATES,  COUNT  designates  the  number  of  ordered  pairs  to  be  Input. 

A streamlined  version  of  UREAD  is  available  to  the  user  under  GCS  through  subroutine 
UINPUT: 
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CALL  UINPUT  (DATA, COUNT, FLAG, OPTION) 


DATA,  COUNT  and  FLAG  are  interpreted  in  the  same  manner  as  UREAD;  OPTION  is  a 
single-valued  character  variable  which  specifies  the  format  or  mode  under  which  the 
input  is  to  be  editted  and  stored  into  DATA,  i.e.,  TEXT,  REALNUMBER,  INTEGER,  etc.  The 
UINPUT/UREAD  relationship  closely  parallels  UPRNT1 /UPRINT  in  that  the  operation  is 
performed  at  the  current  beam  position,  and  the  effects  of  OPTION  are  purged  from  the 
GCS  upon  exit  from  the  subroutine.  See  Example  V-2. 


Menued  Graphical  Input 

Aside  from  entering  positional  information  which  directs  the  generation  of  a display,  the 
bulk  of  most  interactive  input  requirements  centers  upon  the  ability  to  select  one  of 
several  options  which  are  'menued'  before  the  user.  Menuing  represents  a very 
attractive  means  of  user  interaction  due  to  the  inherent  simplicity  of  the  required  user 
response  — one  need  only  position  the  graphic  input  device  within  the  square  of  the 
menuboard  which  represents  the  desired  option,  and  depress  a character  on  the 
keyboard  to  transmit  the  selection  to  the  user's  program. 

Within  GCS,  graphical  input,  by  means  of  a menuboard,  is  facilitated  through  the  use  of 
subroutine  UMENU,  which  is  called  by  the  following  sequence: 

CALL  UMENU  (PTSIN, LABELS, CHOICE) 

The  absolute  value  of  PTSIN  represents  the  number  of  menu  options  that  will  be 
provided  (maximum  of  10);  LABELS  is  a character  array  containing  one  entry  of  up  to 
eight  characters  which  is  to  be  printed  under  each  menu  option,  and  CHOICE  is  a single- 
valued output  REAL  variable,  assigned  a value  by  UMENU  which  indicates  the  box 
number  of  the  option  which  the  user  has  selected.  When  UMENU  is  called  with  a positive 
value  of  PTSIN,  a menuboard  is  drawn,  and  the  graphic  input  device  is  enabled.  A 
negative  value  of  PTSIN  merely  enables  the  input  device  and  inhibits  the  redrawing  of 
the  menuboard  See  Example  V-3. 

Drafting-Type  Graphical  Input 

The  three  GCS  graphical  input  subroutines  described  in  this  chapter  represent  a core 
around  which  many  sophisticated  interactive  grahical  programs  may  be  designed.  There 
exists  one  additional  GCS  graphical  input  subroutine.  UDRIN,  which  permits  high-level 
drafting-type  activities  to  be  performed  under  program  control;  in  addition,  the  result  of 
the  man/machine  interaction  may  be  saved  and  recalled  during  future  interactions. 

CALL  UDRIN (X,Y, CHAR) 

Interested  users  are  directed  to  the  various  subroutine  descriptions  for  further 
discussion. 
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C SAMPLE  PROGRAM  WHICH  ILLUSTRATES  GRAPHICS  INPUT  APPLICATION 
C THROUGH  'UGRIN'.  THREE  TYPES  OF  CASES  ARE  HANDLED:  SOLID  'S' 

C INVISIBLE  T,  AND  DASHED  D'  LINES.  THE  DESIRED  OPTION  FOR  THE  LINE  IS 
C ENTERED  AS  A SINGLE  CHARACTER  WHEN  THE  CURSORS  HAVE  BEEN 
C POSITIONED.  DEFAULT  VALUES  OF  WINDOW,  DEVICE  AREA,  AND  DASH 
SPECIFICATION  ARE  USED.  AN  E'  WILL  TERMINATE  THE  PROGRAM. 

C 

CHARACTER  CHAR‘1 
CALLUSTART 
CALL  UOUTLN 

ENABLES  CURSORS,  OBTAIN  (X.Y)  COORDINATES,  AND  THE  CHARACTER. 

1 CALL  UGRIN  (X,Y, CHAR) 

CHECK  FOR  A REQUEST  FOR  A SOLID  LINE  TO  BE  DRAWN  TO  (X.Y). 

IF  (CHAR. EQ. 'S')  CALL  UPEN1  (X.Y.'LINE') 

CHECK  FOR  A REQUEST  FOR  AN  INVISIBLE  LINE  (MOVE)  TO  (X,Y). 

IF  (CHAR.EQ.T)  CALL  UMOVE  (X.Y) 

CHECK  FOR  A REQUEST  TO  DRAW  A DASHED  LINE  TO  POINT  (X,Y). 

IF  (CHAR.EQ.'D')  CALL  UPEN1  (X.Y.'DASH') 

CHECK  IF  THE  USER  DESIRES  TO  TERMINATE  CURRENT  GCS  PROGRAM. 

IF  (CHAR.EQ.'E  ) GO  TO  2 
GO  TO  1 

2 CALLUEND 
STOP 
END 


EXAMPLE  V-1 
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CHARACTER  CHARM 
CALL  URTART 
i UOUTLH 

t CALL  UQRZH  CX,Y,CHA*0 
JP  CCHAR  .EQ.  '•'>  CALL  UPENI  CX.  Y#  * 

V CCHAR  .EQ.  'I')  CALL  UHDVE  <X*Y> 

JF  CCHAR  .EQ.  'DO  CALL  CPENl  CX.  Y.  'PA8HO 
W CCHAR  .EQ.  'EO  10  TO  C 
90  TO  l 
C 


3$ 

Q€> 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  SUBROUTINE 
C 'UMENU'.  THE  CHARACTER  ARRAY  OPTION'  CONTAINS  THE  LABELS  TO  BE 
C PRINTED  UNDER  EACH  OF  THE  MENUE  SELECTION  BOXES.  THE  NUMBER  OF 
C THE  BOX  WHICH  WAS  SELECTED  BY  THE  USER  IS  RETURNED  IN  THE 
C PARAMETER  'CHOICE'.  THE  DEFAULT  VALUES  OF  VIRTUAL  WINDOW  AND 

C DEVICE  AREA  ARE  USED. 

C 

C INITIALIZE  LABELS  FOR  THE  MENU  CHOICES 
C 

PHAPAPTPP  OPTinN*ft(Ql 

DATA  OPTION/'OPTION  1 OPTION  2',  'OPTION  3',  'OPTION  4',  OPTION  5', 
'OPTION  6',  OPTION  7',  'OPTION  8',  'OPTION  97 

ENTER  GCS 

CALL  USTART 
CALL  UOUTLN 


CALL  UMENU'  TO  DRAW  THE  MENUBOARD  OF  9 OPTIONS  AND  ACCEPT  THE 
USER'S  SELECTION 

CALL  UMENU  (9.0,  OPTION,  CHOICE) 


CALL  UMENU'  ONCE  AGAIN,  BUT  USE  A MINUS  SIGN  (-)  TO  SPECIFY  THAT 
THE  MENUBOARD  IS  NOT  TO  BE  REDRAWN,  BUT  THAT  THE  USER  IS  TO  INPUT 
ANOTHER  CHOICE  (OR  REENTER  AN  EARLIER  ONE) 

C 

CALL  UMENU  (-9  0,  OPTION,  CHOICE) 

CALLUEND 

STOP 

END 


EXAMPLE  V-2 
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CHARACTER  0PTX0N»6CS) 

PATA  OPTXOH/'OfmON  I', 'OPTION 
A 'OPTION  S',  'OPTION 

A 'OPTION  •'/ 

CALL.  USTART 
CALL  UOUTLN 

CALL  LMENU  CO. 9, OPTION, CHOICE) 
CALL  UMENU  C-S.9. OPTION, CHOICE) 
CALL  UEN> 


2',  'OPTION  9', 'OPTION 
'OPTION  7', 'OPTION 


DO 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  SUBROUTINE 
C UINPUT'  TO  ACCEPT  ALPHANUMERIC  INPUT  FROM  A USER,  EDIT  IT  INTO  THE 

C PROPER  FORMAT,  STORE  IT  INTO  A DATA  ARRAY,  & PRINT  THE  DATA  ARRAY 
C AT  A DIFFERENT  LOCATION  ON  THE  DISPLAN. 

C 

C DEFINE  AND  INITIALIZE  DATA  ARRAYS  USED  IN  THIS  GCS  EXAMPLE 
C 

CHARACTER  OPTION*  1 2(4) 

DIMENSION  COUNT(4),DATA(6),INDEX(4)m 
DATA  DATA(2)/'  ;7 

DATA  COUNT,  INDEX, X.Y/5.,1  .,1  .,1  .,1 .3, 4, 5, 5., 907 
DATA  OPTION/'TEXT'.'REALNUMBER', 'INTEGER', 'XYCOORDINATE'/ 

ENTER  GCS,  OUTLINE  DEFAULT  VIRTUAL  WINDOW,  AND  DEFINE  LOOP  TO 
ILLUSTRATE  THE  FOUR  INPUT  AND  OUTPUT  OPTIONS. 

CALL  USTART 

CALL  UPSET  ('TERMINATOR',';') 

CALL  UOUTLN 
DO  1 1-1,4 

POSITION  BEAM/PEN  TO  PROPER  LOCATION  PRIOR  TO  PRINTING  OF  A 
PROMPTING  MESSAGE. 

CALL  UMOVE  (X,Y) 

ALERT  THE  USER  THAT  INPUT  IS  DESIRED,  THEN  ACCEPT  THE  DATA 
CALL  UPRINT  (X.1 0.,DATA(INDEX(l))) 

UPDATE  COORDINATE  LOCATIONS  FOR  NEXT  ATTEMPT  AT  A/N  INPUT 

X-X  + 22.5 
Y-Y-20. 

1 CONTINUE 

WRAP-UP  GRAPHICS  ACTIVITY,  & TERMINATE  THE  FORTRAN  PROGRAM. 

CALL  UEND 
STOP 
END 


EXAMPLE  V-3 
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ENTER. 


ENTER.  1.234E*10 


ENTER.  -123460760 


ENTER.  1.2,3. 4 


OREET  .12346*11  -123466760  Cl  .2.3.45 


I 

CHARACTER  OPTION* 12C45 
DIMENSION  COUNT <45 . BATAC65 , 2NPEXC45 
DATA  COUNT, XNDEX,X,Y/6.„ 1,3, 4, 6, 6., 06./ 

DATA  OPTION/' TEXT'.  'REALMJHBER'.  'INTOfe*'.  'XYCOCRDINATE'/ 
r jj  i UOTTART 

CALL  LP8ET  C' TERMINATOR',  ' j'5 
CALL  UOUTLN 
DO  I J > I,  4 
f*A!  i IMnyr  OC  Y3 

CALL  UPRNT1C' ENTER.  j'.'TEXT'J  

CALL  UBVUT  CDATACDVEXCC55,COUNT<I5,FLAO,OPTION<I5> 

XPCI.EO.  15  CALL  UAPENP<COUHT<13,DATAClNDEXCI>5.0ATACPeEXCl555 
CALL  U6ET  CCPTHJNCI55 
CALL  UPRINT  CX,  I6.,0ATAC2M)EXCI555 
X - X ♦ R2. 6 


Y - T - at. 
1 CONTINUE 
CALL  UEM> 


CHAPTER  VI 

QCS  UTILITY  SUBROUTINES 


To  assist  the  user  in  preparing  his  graphical  applications,  GCS  has  incorporated  a series 
of  comprehensive,  yet  easy  to  use  utility  subroutines  which  permit  the  programmer  to 
generate: 

A.  Circles  and  circular  arcs 

B.  Regular  polygons  and  other  straight-sided  geometric  figures 

C.  Conic  sections 

D.  Linear  and  least-squares  polynominal  curve  fits  to  a series  of  user-supplied 
data  points. 

All  of  the  GCS  utility  routines  which  generate  graphical  output  perform  their  activities 
within  the  environment  established  by  the  user  at  the  time  they  were  invoked:  hence, 
such  output  will  be  constrained  by  such  parameters  as  the  virtual  window  and  device 
area,  current  units  and  mode  of  addressing,  line  type  and  terminator,  together  with  any 
rotational  and  scaling  factors  specified  by  the  user. 


Circles 

One  of  the  most  common  requirements  of  scientific  and  engineering  graphical 
applications  is  fo  the  generation  of  circles  and  circular  arcs.  Provision  for  this  capability 
under  GCS  is  available  through  subroutines  UCRCLE  and  UARC. 

Circles  may  be  generated  through  subroutine  UCRCLE  which  is  called  by  the  following 
sequence: 

CALL  UCRCLE  (X,Y, RADIUS) 

X and  Y are  used  to  specify  the  coordinates  (in  current  units)  of  the  center  of  the  circle  of 
radius,  RADIUS,  which  will  be  approximated  by  a series  of  line  segments  forming  a many- 
sided  equilateral  polygon,  whose  peak  deviation  from  an  ideal  circle  is  approximately  1 4 
thousandths  of  the  ideal  circle's  radius.  This  error  is  normally  comparable  in  magnitude 
to  the  raster  spacing  of  the  plotting  device,  and  should  prove  adequate  under  most 
conditions.  Example  VI-1  demonstrates  the  use  of  UCRCLE. 

Circular  Area 

Circular  arcs  may  be  generated  through  subroutine  UARC  which  is  called  by  the 
following  sequence. 

CALL  UARC  (X,Y, ANGLE) 

Upon  invocation,  UARC  will  generate  an  arc  beginning  at  the  current  beam  position  and 
of  angular  span  ANGLE.  The  radius  of  the  arc  is  determined  through  computation  of  the 
distance  from  the  center  of  the  arc  (specified  by  X and  Y)  and  the  beam  position  prior  to 
entry  into  the  subroutine.  Upon  exit,  UARC  will  leave  the  beam  at  the  last  point  of  the 
angular  segment  it  has  generated.  For  example,  if  all  default  conditions  are  In  effect,  the 
current  beam  position  is  at  (40.0,50.0),  and  UARC  is  invoked  with  the  following 
parameters: 
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CALL  UARC  (40.0,20.0,90.0) 


r 


UARC  will  generate  a circular  arc  having  a center  at  (40.0,20.0),  with  a radius  of  30.0,  and 
angular  span  of  90.0  degrees.  The  arc  will  begin  at  (40.0,50.0)  and  terminate  at 
(10.0,20.0).  See  Example  VI-2. 

Should  the  user  be  at  a terminal  which  has  the  capability  to  generate  circles  and  circular 
arcs  via  hardware,  UCRCLE  and  UARC  will  utilize  such  facilities  when  they  are  invoked 


Regular  Polygon* 

Polygon  and  other  straight-sided  geometric  figure  generation  is  provided  through 
subroutines  UPLYGN  and  URECT.  Subroutine  URECT  may  be  utilized  when  a 
reactangle,  which  spans  the  area  defined  by  the  current  beam  position  and  coordinates 
(X,Y),  is  desired.  Should  URECT  be  called  under  the  RELATIVE  mode  of  addressing,  any 
rotational  or  scaling  parameters  which  may  apply  will  dictate  the  rotation  or  scaling  of 
the  rectangle  about  the  current  beam  position. 

CALL  RECT(X.Y) 

Provision  for  the  generation  of  equilateral  (regular)  polygons  is  available  under  GCS 
through  UPLYGN  which  may  be  called  by  the  following  sequence: 

CALL  UPLYGN  (X.Y.PTS, RADIUS) 

X and  Y denote  the  coordinates  of  the  center  of  the  polygon,  PTS  is  the  number  of  sides 
which  is  to  comprise  the  figure,  and  RADIUS  is  used  to  define  the  radius  of  the  circle 
within  which  the  polygon  is  inscribed  With  no  relative  rotation  specified,  the  polygon 
will  be  drawn  with  one  side  parallel  to  the  bottom  of  the  plotting  area  Should  relative 
rotation  be  specified,  this  "base"  side  will  be  rotated  by  the  given  angle  of  rotation.  In 
contrast  to  URECT,  UPLYGN's  axis  of  rotation  is  defined  by  (X,Y)  as  opposed  to  the  beam 
position  upon  entry  to  the  subroutine  Examples  VI-3  through  VI-6  demonstrate  the  use 
of  UPLYGN  and  URECT  and  illustrates  some  of  the  principles  of  rotation  and  line  options. 


Conic  Sections 

A particularly  useful  subroutine  which  may  be  used  to  draw  all  (or  part)  of  a generalized 
conic  section  having  a given  focus,  directrix,  eccentricity,  and  angular  span  is  available 
through  the  following  calling  sequence: 


CALL  UCONIC  (X,Y,P,E,THETA1  .THETA2) 


(X,Y)  are  used  to  specify  the  coordinates  of  the  focus  of  the  conic  section;  P is  the 
distance  from  the  focus  to  the  directrix;  E is  the  eccentricity,  THETA1  and  THETA2 
represent  the  initial  and  final  angles  through  which  the  conic  section  is  to  be  drawn. 
Parameters  E and  P affect  the  generation  of  the  conic  section  in  the  following  manner: 

A. 

E-0 

will  draw  a circular  arc  with  a center  at  (X,Y)  and  radius 
P/2.  The  arc  will  subtend  the  angular  range  defined  by 
THETA  1 and  THETA2. 

B. 

0.LT.ABS(E).LT.1 

will  generate  an  ellipse. 

C. 

ABS(E)  — 1 

will  specify  a parabola 

D. 

ABS(E)  GT.1 

designates  that  a hyperbola  is  to  be  drawn 
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E. 

E.GT.O 

indicates  that  the  major  axis  of  the  conic  section  is  to  be 
oriented  parallel  to  the  X-axis. 

F. 

E.LT.O 

specifies  that  the  major  axis  Is  to  be  oriented  along  the  Y- 
axis. 

G. 

P.GT.O 

defines  the  position  of  the  focus  to  be  to  the  right  of  (or 
below)  the  directrix. 

H. 

P.LT.O 

indicates  that  the  focus  is  positioned  to  the  left  of  (or 

above)  the  directrix. 

Examples  VI-7  and  VI-8  demonstrate  the  use  of  UCONIC. 
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Curve  Fitting 

For  those  users  who  desire  to  combine  data  analysis  through  curve  fitting  into  their 
graphical  applications,  subroutines  ULINFT  and  ULSTSQ  should  provde  of  particular 
importance.  ULINFT  should  be  used  when  it  is  desired  to  obtain  the  slope  (S)  and  Y- 
intercept  (Yl)  of  the  linear  equation,  Y = SX  + Yl,  which  represents  the  least-squares 
linear  fit  to  a number  (XN)  of  user-supplied  data  points  (contained  in  arrays  X and  Y). 
ULINFT  may  be  called  by  the  following  sequence: 

CALL  ULINFT  (X,Y,SN,S,YI) 

See  Example  VI-9. 

Subroutine  ULSTSQ  should  be  used  when  a least-squares'  polynominal  curve  fit  is 
desired.  ULSTSQ  returns  the  N+1  coefficients  of  the  polynominal  of  degree  N which 
represents  the  best'  in  the  sense  of  least-square  fit  to  a series  of  user-supplied  data 
points.  ULSTSQ  may  be  invoked  by: 

CALL  ULSTSQ  (X,Y,XN,COEFF) 

where  X is  a user-supplied  array  containing  XN  values  of  the  independent  variable;  Y is 
an  array  of  XN  values  for  the  dependent  variable;  XN  is  the  number  of  values  in  each  of 
the  X and  Y arrays;  and  COEFF  is  an  output  array  which  contains  the  N+  1 coefficients  of 
the  polynominal  which  was  fitted  to  the  data.  In  order  to  specify  the  degree  of  the 
polynominal  which  is  to  be  fitted  to  the  data,  it  is  necessary  to  call  UPSET  before 
ULSTSQ  is  invoked.  For  the  generalized  case  outlined  above,  a suitable  call  to  UPSET 
would  be: 

CALL  UPSET  ( POLYNOMINAL  , FLOAT(N)) 

See  Example  VI-10. 

Development  of  Application*  Library 

There  is  one  additional  curve  fitting  routine  available,  USPLIN.  This  routine  does  a cubic 
spline  fit  to  a series  of  data  points.  The  quality  of  fit  is  established  by  the  nature  of  the 
cubic  spline  function.  The  user  is  referred  to  the  subroutine  writeup. 

CALL  USPLIN(X,Y,XN,RX,RY,RN) 

The  subroutines  discussed  in  this  chapter  represent  a group  of  software  which  may  be 
viewed  as  a minature  applications  library.  It  is  also  important  to  remember  that  each  of 
these  routines  represents  applications  of  the  various  GCS  'user-level'  subroutines 


vi-3 


outlined  in  the  previous  chapters  In  essence,  subroutines  such  as  UCRCLE,  URECT, 
and  UPLYGN  are  representative  of  the  types  of  generalized  software  that  a sophisticated 
user  is  able  to  write  under  GCS. 
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EXAMPLE  VI-1 


SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  SIMPLE  APPLICATION  OF  THE 
SUBROUTINE  'UCRCLE'.  DEFAULT  VIRTUAL  WINDOW  AND  DEVICE  AREA  IS 
USED  NOTE  THE  EFFECT  OF  SCISSORING  DUE  TO  THE  VIRTUAL  WINDOW'S 
RESTRICTING  OF  ALL  GRAPHICAL  INFORMATION  TO  RESIDE  WITHIN  THE 
REGION  DEFINED  BY  A 1 00.-BY-1 00  SQUARE. 

CALLUSTART 
CALL  UOUTLN 

DRAW  CIRCLES  WITH  CENTERS  AT  CORNER  OF  THE  VIRTUAL  WINDOW,  AND 
CENTERS  AT  THE  MIDDLE  OF  EACH  OF  THE  WINDOW  BOUNDARIES.  ALL  OF 
THESE  CIRCLES  HAVE  A RADIUS  OF  50. 

CALL  UCRCLE  (0., 0., 50.) 

CALL  UCRCLE  (50., 0., 50.) 

CALL  UCRCLE  (1 00., 0., 50.) 

CALL  UCRCLE  ( 1 00., 50., 50. 

CALL  UCRCLE  (1 00  ,1 00., 50.) 

CALL  UCRCLE  (50.1 00., 50.) 

CALL  UCRCLE  (0.1  00  ,50.) 

CALL  UCRCLE  (0., 50., 50.) 

DRAW  A CIRCLE  OF  RADIUS  20.7  WITH  A CENTER  AT  (50., 50  ). 

CALL  UCRCLE  (50., 50., 20.7) 

CALLUEND 

STOP 

END 
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CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


USTART 

UOUTLH 

ucrcle  ca.,a.,sa.) 
ucrclc  cE0.,a.,5a.> 

UCRCLC  C100.,0.,S0.> 
UCRCLC  C100.,60.,S0.3 
UCRCLC  CIM.,  1 00., 50. > 
UCRCLC  CS0.< 109. ,&0.} 
UCRCLC  C0.„  10*.. 60. > 
UCRCLC  C0.,E0.#B0.) 
UCRCLC  CS0.,60.,20.7> 
UQO 


QO 
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SAMPLE  PROGRAM  USED  TO  DEMONSTRATE  THE  USE  OF  SUBROUTINE 
'URAC'  TO  DRAW  AN  ARC  CENTERED  AT  (40., 20.)  AND  OF  RADIUS  30.0.  THE 
ARC  WILL  BEGIN  AT  (40., 50.),  AND  TERMINATE  AT  (1 0.,20.). 


CALL  UPEN1  (40., 0,50.0,  'NCOORDI NATES') 
CALLUMOVE 


CALL  'UARC'  TO  GENERATE  AN  ARC  WHOSE  CENTER  IS  (40,20.),  SPANNING 
AN  ANGULAR  INTERVAL  OF  90  DEGREES. 

CALL  UARC  (40.0,20.0,90.0) 

DETERMINE  WHERE  'UARC'  HAS  LEFT  THE  BEAM,  THEN  PRINT  THE 
COORDINATES  OF  THIS  LOCATION.  ALSO  PRINT  THE  COORDINATE  OF  THE 
CENTER  OF  THE  ARC 

CALL  UWHERE  (X,Y) 

CALL  UPEN1  (X,Y, 'NCOORDI NATES') 

CALL  UPEN1  (40.0, 20.0, 'NCOORDINATES') 

CALLUEND 

STOP 

END 


EXAMPLE  VI-2 
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A 


CALL  U8TART 

CALL  UOUTLN  

CALL  UPQ41  C4«.a,Ba.a,  'NCOCRDIHATESO 
CALL  ’JHOVC  C<9.a,Ba.8> 

CALL  UARC  CHa,a/6a.8<8a.a> 

CALL  UWHERE  OC,Y> 

CALL  UPWl  OC.Y  'NOOORDIHATeSO 
CALL  UPENi  C 48.4,  28. 8,  'NCnORDINATEB'') 
CALL  UOC 
STOP 

oo 
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C SAMPLE  PROGRAM  USED  TO  DEMONSTRATE  USE  OF  SUBROUTINE 
C 'UPLYGN'.  POLYGONS  OF  FROM  2 TO  9 SIDES  WILL  BE  DRAWN  WITHIN  THEIR 
C OWN  WINDOW,  WHICH  IS  MAPPED  TO  DIFFERENT  PORTIONS  OF  THE 
C SCREEN  OF  A TEKTRONIX  401  0/401 3 TERMINAL. 

C 

C PRESET  NUMBER  OF  SIDES  OF  POLYGON  - 1 . 'INITIAL  Y HEIGHT  - 4.7' 

C 

DATA  SIDES  YO/1 .0,4.7/ 

C 

C START  GCS.  SET  VIRTUAL  WINDOW  TO  XMIN  — -1 .1  XMAX-  + 1.1  YMIN--1.1 
C YMAX  - + 1 .1 . THIS  SMALL  VIRTUAL-SPACE  WINDOW  WILL  BE  DRAWN  8 

C TIMES:  2 ROWS  OF  4,  EACH  TIME  CONTAINING  A DIFFERENT  POLYGON  AND 
C WITH  THE  WINDOW  ITSELF  OUTLINED. 

CALLUSTART 

CALL  UPSET  ('TERMINATOR', ';') 

CALL  UWINDO  (-1.1,1. 1,-1 .1,1.1) 

THE  FOLLOWING  DO-LOOPS  SET  UP  THE  2 ROWS  OF  4 DISPLAYS 

DO  1 1-1,2 
X — 1 .5 
YO-YO-1.8 
DO  1 J = 1 ,4 
XO-XO+1.8 

INITIALIZE  NUMBER  OF  SIDES,  1 IS  ADDED  BEFORE  EACH  EXECUT'ON  SO 
POLYGON  SIDES  START  AT  2 AND  GO  TO  9 IN  8 STEPS 

SIDES -SIDES + 1.0 

NOW  ACTUALLY  SET  UP  THE  DEVICE  AREA  WINDOW  AS  XO  AND  YO  CHANGE 
IT  WILL  MOVE  TO  8 DIFFERENT  LOCNS 

CALL  UDAREA  (X),(XO+  1 5),YO,(YO+ 1 .5)) 

AT  EACH  LOCATION  OUTLINE  IT 

CALL  UOUTLN 

CALL  'UPLYGN'  TO  DRAW  THE  POLYGON  WITHIN  THE  DEVICE  AREA  WE  HAVE 
DEFINED,  THEN  ADD  SOME  LABELING  VIA  CALLS  TO  'UPRINT'. 

CALL  UPLYGN  (0.0, 0.0, SIDES, 1 .0) 

LABEL  CRAWING 

CALL  USET  ('TEXT') 

CALL  UPRINT  (-1 .0,-1 .05,  SIDES;') 

CALL  USET  ('INTEGER') 

CALL  UPRINT  (0  9,-1 .05, SIDES) 

1 CONTINUE 
CALLUEND 
STOP 
END 


EXAMPLE  VI-3 
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DATA  SIDES^YB/ 1 .a,  4. 7/ 
pai  i uaTART 

CALL  UPSet  C/TERH3J4ATOR/,  * i*) 
CALL  UU3MDO  C-l .1,1 .1,-1 .1,1.17 


PO  l I - l,  2 

xa  - -i.b 

Y»  - YB  - | .a 
PO  I J » L 4 

xa  - xa  ♦ i.a 

SIDES  - SIDES  ♦ l.a 

CALL  UDAREA  CXS, CXS+t .B7,  Y8, CY8*t .B7> 

CALL  UOUTLM 

CALL  UPLYSM  <a.a,a.a,8XDE8, t .87 
CALL  user  C'TEXTO 


CALL  VJPIOhT  C-t  .8,-1  .1 

call  user  c'nnrafeBO 

CALL  UPRZNT  Ca.Q,-l  .1 
1 CXJKTXNUE 
CALL  UEND 


I.  SIDES) 


EMD 
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SAMPLE  PROGRAM  USED  TO  DEMONSTRATE  USE  OF  SUBROUTINE 
'UPLYGN'.  A TRIANGLE  WILL  BE  DRAWN  USING  1 OF  1 2 POSSIBLE  PEN 
OPTIONS  ON  A TETRONIX  401  0/401  3 TERMINAL. 

LOAD  A CHARACTER  ARRAY  WITH  OPTIONS  TO  BE  USED  BY  USET  AND 
UPRINT 

CHARACTER  OPTION‘1 6(1  2) 

DATA  INDEX, Y O.OPTION/O.5,6,  'LNULL,',  'LARROW  ',  'LBACK ARROW 
'LDOUBLEARROW;',  'DNULL;',  'DARROW;',  'DBACKARROW:', 
'DOUBLEARROW;',  TNULL;',  TARROW;',  'TBACKARROW;',  'TDOUBL ARROW;'/ 

ENTER  GCS,  DEFINE  VIRTUAL  WINDOW. 

CALL  USTART 

CALL  UPSET  ('TICINTERVAL',  0.25) 

CALL  UPSET  ('TERMINATOR',';') 

CALL  UWINDOM.  1,1. 1,-1. 1,1.1) 

DRAW  FIGURES  IN  THREE  ROWS  OF  FOUR. 

DO  1 1-1,3 
XO-1.5 
YO-YO-1.8 
DO  1 J-1,4 
XO-XO+1.8 
INDEX  — INDEX+  1 

DEFINE  DEVICE  AREA  SO  THAT  ONLY  ONE  POLYGON  WILL  BE  DRAWN. 

CALL  UDAREA  (XO.(XO  + 1 5).YO.(YO  + 1 .5)) 

CALL  UOUTLN 

CALL  'UPLYGN'  TO  DRAW  THE  POLYGON  WITHIN  THE  DEVICE  AREA  WE  HAVE 
DEFINED  USING  ONE  OF  THE  TWELVE  POSSIBLE  PEN  OPTIONS. 

CALL  USET  (OPTION(INDEX)) 

CALL  UPLYGN  (0  ,0.0, 3.0,1 .0) 

CALL  UPRINT  (-1 .0.-1 .0.OPTION(INDEX)) 

CONTINUE 

CALLUEND 

STOP 

END 


EXAMPLE  VI-4 
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CHARACTER  OPTION* 1 OC I 2) 

DATA  INDEX, Y0/8, 5 . 0/ 

DATA  OPTION/ 'LMJLLj  S 'LARROWj 
'DNULLj  *. 'DAKRCH, 
'TNULL* 'TARROV, S 

f*A<  i (jsTART 

call  lp«et  c'Terninators */'* 

CALL  UP8ET  C'TICINTERVALS®.2B> 
CALL  UWINDO  <—l .1,1. 1,-1 .1,1.0 
DO  I I - I.  3 
X8  - -I .5 
YB  - Y8  - I .8 


'L0ACKARROV; 

'DBACXARROUj 

'TBACKARROWj 


DO  I d ■ I,  4 

xe  - xa  ♦ i .« 

INDEX  - INDEX  * I 

CALL  UDAREA  <X8,  CX8*-I  .E>,  Y8,  CY0*1  .B» 
pai  i UOUTLN 

CALL  U8ET  COPTXONCIM)EX» 

CALL  UPLYtN  C8. 8, 8. 8,3. 6,  l . 83 
CALL  UPRIHT  C-1  .8,-1  .8,  OPTION  CD«>GO> 
I CONTINUE 
CALL  UEM> 

8T0P 

END 


LDOUHLEARRDUj 
'DDOUBLEARROUj 
'TDOLBLEARROtO  '/ 
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C SAMPLE  PROGRAM  USED  TO  DEMONSTRATE  USE  OF  SUBROUTINE 
C 'UPLYGN'.  A TRIANGLE  WILL  BE  DRAWN  IN  RELATIVE  MODE  AND  ROTATED 
C ABOUT  ITS  CENTER  IN  TEN  DEGREE  INCREMENTS  ON  A TEKTRONIX 
C 401 0/401 3 TERMINAL. 

C 

DATA  DEGREE, YO/O.0, 5.563/ 

C 

ENTER  GCS  AND  DEFINE  VIRTUAL  WINDOW,  AND  PEN  OPTIONS 
C 

CALLUSTART 

CALL  UWINDOM.  1,1. 1,-1. 1,1.1) 

CALL  USET  (’INTEGER  ) 

CALL  USET  ('LARROW') 

DO  1 1-1,3 
XO--1.3 
YO-YO-1.8 
DO  1 J-1,4 
XO-XO+1.8 
DEGREE -DEGREE +10.0 

DEFINE  DEVICE  AREA  SO  THAT  ONLY  ONE  POLYGON  WILL  BE  DRAWN 

CALL  UDAREA  (XO,(XO+  1 5),YO.(YO+  1 .5) 

CALL  UOUTLN 

CALL  UPLYGN'  TO  DRAW  THE  POLYGON  WITHIN  THE  DEVICE  AREA  WE  HAVE 
DEFINED.  ROTATING  IT  IN  RELATIVE  MODE  BY  TEN  DEGREES 

CALL  UMOVE  (0.0, 0.0) 

CALL  USET  ('RELATIVE') 

CALL  UPSET  ('ROTATE'.DEGREE) 

CALL  UPLYGN  (0.0, 0.0, 3.0,1 .0) 

CALL  USET  ('ABSOLUTE') 

CALL  UPRINT  (-1 .0,-1 .0, DEGREE) 

1 CONTINUE 
CALLUEND 
STOP 
END 


EXAMPLE  VI-5 


Vi-13 


DATA  PE8REE, Y8/8.8,S.50S/ 

>*ai  i USTART 

CALL  UUXNPO  C-LU.I.-I.UI.IJ 

call  user  c'XNTcoeRO 

CALL  USCT  C'LARRDWO 
DO  l I - 1,  3 
X8  - -I.S 
YS  - Y8  - |.8 
DC  I O ■ L 4 

xs  - xa  ♦ i.s 


octree  - peases  ♦ is.s 

CALL  UDARCA  CCS.  0»*l  .5>,Y8,  CYS-1 .E» 

CALL  UOUTLN 

CALL  UMOVE  CS.S.S.S) 

CALL  USCT  C 'RELATIVE' > 

CALL  (JPSer  C' ROTATE', DEOREE} 

CALL  UPLYQN  CS.S.S.S.S.S,  I .»> 

CALL  UeeT  C' ABSOLUTE o 
CALL  UPRINT  C-l .S.DEOREE) 
t CONTINUE 
CALL  UEND 
STOP 
QO 
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C SAMPLE  PROGRAM  USED  TO  DEMONSTRATE  USE  OF  SUBROUTINE  'URECT' 

C A RECTANGLE  WILL  BE  DRAWN  IN  RELATIVE  MODE  WITH  A ROTATIONAL 
C INCREMENT  OF  THIRTY  DEGREES  APPLIED  TO  SUBSEQUENT  CASES  ON  A 
C TEKTRONIX  401 0/401 3 TERMINAL. 

C 

DATA  DEGREE, YO/O.0, 5.63/ 

ENTER  GCS,  SET  VIRTUAL  WINDOW,  SET  INTEGER  MODE 
CALLUSTART 

CALL  UWINDO  (-1 .1 ,1 .1  ,-1 .1 ,1 .1 ) 

CALLUSET  ('INTEGER') 

LOOP  THROUGH  PROGRAM,  CHANGING  LOCATION  OF  FIGURE  BY 
INCREMENTING  THE  LOCATIO  NBY  A FIXED  AMOUNT. 

DO  1 1-1,3 
XO--1.5 
YO-YO-1.8 
DO  1 J-1,4 
XO-XO+1.8 

DEGREE  - DEGREE  + 30 .0 

DEFINE  DEVICE  AREA  SO  THAT  ONLY  ONE  RECTANGLE  WILL  BE  DRAWN. 

CALL  UDAREA  (XO,(X 0+  1 .5),  YO,(YO+ 1 .5)) 

CALL  UOUTLN 

CALL  'URECT'  TO  DRAW  THE  RECTANGLE  WITHIN  THE  DEVICE  AREA  WE 
HAVE  DEFINED,  ROTATING  IT  IN  RELATIVE  MODE  BY  THIRTY  DEGREES. 

CALL  UMOVE  (0.0, 0.0) 

CALLUSET  ('RELATIVE') 

CALL  UPSET  ('ROTATE'.DEGREE) 

CALL  URECT  (0.8, 0.6) 

CALLUSET  ('ABSOLUTE  ) 

CALL  UPRINT  (-1 .0,-1 .0, DEGREE) 

1 CONTINUE 
CALLUEND 
STOP 
END 


EXAMPLE  VI-6 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  'UCONIC'  TO 
C GENERATE  ELLIPSES  AND  HYPERBOLAE.  FOUR  FIGURES  WILL  BE  DRAWN: 
C 2 ELLIPSES  ORIENGED  ALONG  THE  X AND  'Y'  AXES;  and  2 HYPERBOLAE 

C ORIENTED  ALONG  THE  X AND  'Y'  AXES.  EACH  ONE  OF  THE  FIGURES  IS 
C DRAWN  WITHIN  ITS  OWN  REGION  OF  THE  SCREEN  BY  REDEFINING  THE 
C DEVICE  AREA  PRIOR  TO  DRAWING  THE  FIGURE  ON  A TEKTRONIX  401 0/4013 
C TERMINAL. 

C 

C SET  UP  DATA  ARRAYS  FOR  UCONIC 

C 

DIMENSION  X(4),Y(4),P(4),E(4) 

DATA  INDEX, YO,X,Y,P,E/ 

0,5.73,1 0.,50.,67.,40.,50.,1 0., 50., 67,9.5-9.5, 9., -8., .9, -.9,1 .44,-1 .44/ 

ENTER GCS 

CALLUSTART 
DO  1 1-1,2 
XO-1.82 
YO  — YO-2.86 
DO  1 J-1,2 
XO— XO+2.86 
INDEX-INDEX  + 1 

DEFINE  DEVICE  AREA  SO  THAT  ONLY  ONE  FIGURE  WILL  BE  DRAWN. 

CALL  UDAREA  (XO,(XO+  2.57), YO,(YO+  2.57) 

CALL  UOUTLN 

CALL  UCONIC  TO  DRAW  THE  FIGURE  USING  THE  PARAMETERS  STORED  IN 
ARRAYS  X.'Y'.'P',  AND  'E'.  NOTE  THAT  DEFAULT  VIRTUAL  WINDOW  IS 
MAPPED  TO  THE  CURRENT  DEVICE  AREA  SPECIFICATION. 

CALL  UCONIC  (X(INDEX).Y(INDEX),P(INDEX),E(INDEX),0 .0,360.0) 

1 CONTINUE 
CALLUEND 
STOP 
END 


EXAMPLE  VI-7 
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DIMENSION  X<47,YC47,PC47,E<47 

DATA  3J©EX.  Y8.  X.  Y, P,  E/8,  6. 73,  18. ,68. .07. ,68. .60. 
t 8.6,~8.6,8.,-8.,  .8,-. 8,  1 .* 

CALL  U8TART 
DO  I I - I,  2 
X8  - -1.82 


.18.. 
>4.-1 . 


Y8  - Y8  — 2.80 
DO  1 U - 1,  2 

X8  - X8  * 2.80 

scex  - INDEX  ♦ I 

CALL  UDAREA  0(8,  0(8*2.677,  Y8,  <Y8»2. 5777 
<*ai  i UoifTLN 

CALL  ICONIC  O(ONDEX7,YCINDEX7.POCNDEX7,ECXNDEX7,8.0, 
1 CONTINUE 
CALL  UEND 
STOP 
END 


07.. 


87 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  'UCONIC'  TO 
C GENERATE  PARABOLAE.  FOUR  FIGURES  WILL  BE  DRAWN:  2 WILL  BE 
C ORIENTED  ALONG  THE  ' + X'  AND  ' + Y'  AXES,  AND  2 WILL  BE  ORIENTED 

C ALONG  THE  -X'  AND  '-Y'  AXES.  EACH  ONE  OF  THE  PARABOLAE  IS  DRAWN 
C WITHIN  ITS  OWN  REIGON  OF  THE  SCREEN  BY  REDEHNING  THE  DEVICE  AREA 
C PRIOR  TO  DRAWING  THE  FIGURE  ON  A TEKTRONIX  4010/401  3 TERMINAL. 

C 

DIMENSION  X(4),Y(4),P(4) 

DATA  INDEX, YO,X,Y,P,E/ 

0,5.73,1 0., 50., 90., 50..50..1 0., 50., 90., 1 3„-1  3,-1 3..1  3„1  ..-1  .,1  .,-1 ./ 

ENTER GCS 

CALLUSTART 
DO  1 1-1,2 
XO-1.82 
YO  — YO-2.86 
DO  1 J-1,2 
XO-XO+2.86 
INDEX-INDEX+1 

DEFINE  DEVICE  AREA  SO  THAT  ONLY  ONE  FIGURE  WILL  BE  DRAWN. 

CALL  UDAREA  (XO,(XO  + 2.57),YO,(YO+  2.57)) 

CALL  UOUTLN 

CALL  UCONIC  TO  DRAW  THE  FIGURE  USING  THE  PARAMETERS  STORED  IN 
ARRAYS  'X’.'Y'.'P',  AND  E'.  NOTE  THAT  DEFAULT  VIRTUAL  WINDOW  IS 
MAPPED  TO  THE  CURRENT  DEVICE  AREA  SPECIFICATION. 

CALL  UCONIC  (X (I NDEX),Y(INDEX),P(INDEX),E(INDEX), 0.0,360.) 

1 CONTINUE 
CALL  UEND 
STOP 


DIMENSION  X<4>,YC4>.P<4>,E<4> 

DATA  INDEX.  YO. X.  Y. P.  ES9. 6 . 73.  10.  .60.  .80.  .60.  .68..  10.  .60.  .80.. 
6 13.. -IS. .-13.,  13.,  1 .,-1 .,  1 ..-1 ./ 

CALL  U8TAKT 
DO  1 I - 1.  2 
XO  - -1 .82 
YO-YO  - 2.00 
DO  I O - I.  2 
XO  — XO  ♦ 2.00 
INDEX  - INDEX  ♦ 1 

CALL  LDAREA  CX8,  CX0«2.67>,  YO.  <YO*2.67» 

r*Ai  i uoUTLN 

CALI.  UCONIC  OCClNDEX^.YCIWEXJ.PClNDEX^.EaNDEXX.O.O.SeO.OX 
I CONTINUE 
CALL  UEND 
STOP 
END 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  'ULINFT'  TO 
C CALCULATE  THE  SLOPE  (S)  AND  Y-INTERCEPT  (Yl)  OF  A LINE  WHICH 
C REPRESENTS  THE  BEST'  LINEAR  FIT  TO  A SERIES  OF  DATA  POINTS. 

C DEFAULT  VALUES  OF  VIRTUAL  WINDOW,  DEV  iCE  AREA,  AND  LINE  TYPE  ARE 
C USED. 

C 

DIMENSION  X(20),Y(20) 

DATA  X/0.,5.,  1 0.,  1 5„  20.,  25.,  30.,  35.,  40.,  45.,  50.,  55.,  60.,  65.,  70.,  75.,  80.,  85 
1 90.,  95./ 

DATA  Y/20.,  25.,  30.,  35.,  30.,  25.,  20.,  1 5..  1 0.,  1 5.,  20.,  25.,  30.,  35.,  40.  45..  50  55  , 
1 60,65./ 

ENTER  GCS,  DRAW  OUTLINE 

CALLUSTART 
CALL  UOUTLN 
CALLUSET  ('N  + ') 

DO  2 I*  1,20 

AND  PLOT  EACH  DATA  POINT  WITH  A ' + ’. 

CALL  UPEN  (X(I),Y(D) 

1 CONTINUE 
CALLUSET  CLINE') 

CALL  'ULINFT'  TO  CALCULATE  THE  LINE'S  SLOPE  AND  Y-INTERCEPT. 

2 CALL  ULINFT  (X.Y.20.S.YI) 

MOVE  TO  THE  Y-INTERCEPT  THEN  GRAPH  THE  LINE  USING  YO=SX+  Yl 

XMIN  = 0.0 
XMAX- 100.0 
CALLUMOVE  (XMIN.YI) 

YO-YI  + S*MAX 
CALL  UPEN  (XMAX.YO) 

CALLUEND 
STOP 
END 


EXAMPLE  VI-9 


vi-21 


AD-A063  167 

UNCLASSIFIED 


ARMY  ENGINEER  WATERWAYS  EXPERIMENT  STATION  VICKSBURG  MISS  F/G  9/2 
GRAPHICS  COMPATIBILITY  SYSTEM  (GCS).  PRIMER  ON  COMPUTER  GRAPHIC— ETC<U) 
1978 

NL 


2®  5 1 

ADA  g| 

063167  1 

■ 

r 

..if 

jgg 

U^xrun 

ib~ 

»•  * 

■ 

£ 

w~ 

r 

111 

r 

sp 

SR, 

::  x 

V 

i 

IT 

£ 

1 

* 

fer. 

i 

fr-vtm 

Wmm 

• 

w 

■ 

.—A 

HP 

IHV- 

w 

I 

i 

L 

|p. 

» 

f 

f 

h 

|»K. 

i 

P 

i . 

P 

- 

m 

i 

- 

F~ 

—A 

RHW 

piaraujc 

U 

i 

£ 

P - 

EL 

— — 

Is 

% 

It 

: ^ _ 

k • 

ff 

L 1’ 

F '• 

~ fer 

DATA 


00  2 
XN  - 
CALL 
CALL 


■SON  XCZ93,YCZ93 

X/2..6.,  19.,  l6.,a.,aE.,SI.#9S. 

#05*  f79*  2I«  , I 

Y/2.,7.,  II..  14., 26., 24. ,91  .,94. 

69., 69., 68., 04., 79.,  70.,  82.,  I 
U8YART 
UOUTLN 
Z - I,  29 
FLOAT  CZ3 

UeCT  C*ACCKTBR*> 

U8CT  C'N*0 
UPON  <XCX>,YCX33 
U8CT  C 'LINE*  3 


»•# 

,97./ 


Mem 

XHAX 


ULZNPT  CX  , Y,XN,9,  YI3 
*®  9.9 

- 199.9 

WOVE  <XKXN,YX3 
YX  ♦ 9 * XMAX 
UPEN  CXMAX,  Y93 
UO© 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  'ULSTSQ'  TO 
C CALCULATE  THE  COEFFICIENTS  OF  A POLYNOMIAL  OF  ORDER  IDEGRE-1 
C WHICH  REPRESENTS  THE  BEST'  FIT  TO  A SERIES  OF  DATA  POINTS. 

C DEFAULT  VALUES  OF  VIRTUAL  WINDOW,  DEVICE  AREA,  AND  LINE  TYPE  ARE 
C USED.  EACH  OF  THE  DATA  POINTS  ARE  PLOTTED  WITH  A ' I '.  AFTER 
C ULSTSQ'  IS  CALLED,  THE  POLYNOMIAL  IS  THEN  GRAPHED,  USING  THE 
C COEFFICIENTS  WHICH  WERE  COMPUTED 

C 

PARAMETER  IDEGRE-7 
DIMENSION  A(IDEGRE),X(20),Y(2Q) 

DATA  X/0.,5.,  1 0.,  1 5.,  20.,  25.,  30.,  35.,  40..  45.,  50.,  55.,  60..  65.,  70.,  75.,  80.,  85.. 

1 90.,  95/ 

DATA  Y/20.,  25.,  30.,  35.,  30.,  25.,  20.,  1 5.,  1 0.,  1 5..  20.,  25.,  30.,  35.,  40..  45.,  50., 

2 55.,  60..  65./ 

ENTER  GCS,  DRAW  OUTLINE.  SET  TYPE  AND  DEGREE  OF  FIT 

CALL  USTART 
CALL  UOUTLN 

CALL  UPSET  ('POLYNOMIAL',LFOAT(IDEGRE-1 )) 

CALL  USET('NV) 

PLOT  POINTS 

DO  2 1- 1,20 
CALL  UPEN  (X(I).Y(D) 

2 CONTINUE 

MOVE  PEN  TO  ORIGIN,  COMPUTE  LEAST  SQUARES  LINE 

2 CALL  UMOVE 
CALL  ULSTSQ  (X.Y.20..A) 

PLOT  LEAST  SQUARES  LINE  APPROXIMATING  POINTS 

00  51-1,100 
YO-A(I) 

XO— FLOAT(I) 

D04J-2,  IDEGREE 
YO— A(J)*XK  + YO 
XK  — XK*XO 

3 CONTINUE 
CALL  UPEN  (XO.YO) 

4 CONTINUE 
CALL  UEND 
STOP 
END 
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owenkdqn  AaDORD.xcau.Ycatt 
mta 

^ 7P*#7#*#  W*  # 

DATA  Y/a.<8.,a.<».<4e.<a.,M.,M.,6B.>4l.< 

A 42.,9}..9fc..3}.,42..40.,6S..M..*2..8fc./ 

CALL  U0TAKT 

(**i » uoutlw 

CAU.  ursrr  <'P0LYN0KCAL'.FL0ATCIDeN«--|)3 
CALL  ucrr  C'ACENTERO 

cau.  uoet  <'n*'3 

DO  2 Z - I.  22 
CAU.  UPEN  CXCI3.YCI33 
2 CONTINUE 

call  uarr  c 'line' 3 

CALL  UH0VC  C4.*,*.*3 
CALL  UbETM  CXY.Z2..A3 
MCI  - I.  IN 
Y2  - AO) 

X»  - FLOAT CI> 

xk  «* 

DO  4 J ■ t,  XDEME 
Yt  - ACJ3  • 30C  ♦ Y» 

XK  • XX  m XI 

4 CONTINUE 

CAU.  UPEN  CX2.Y23 

5 CONTINUE 
CALL  UEM> 


END 


CHAPTER  VII 


HIGH  LEVEL  QRAPHIC8 


High  Laval  Plotting  Facility 

UPLOT  is  a general-purpose  composite  plotting  subroutine  which  may  be  used  to  graph 
full-screen  representations  of  complete  arrays  of  data.  Through  the  use  of  common 
default  options,  UPLOT  provides  sufficient  flexibility  to  meet  the  majority  of  plotting 
requirements;  however,  should  the  user  desire  to  change  any  of  the  applicable  options, 
UPLOT  will  permit: 

A.  Rectangular,  semi-logarithmic,  log-log,  or  polar  plotting; 

B.  Automatic  or  forced  scaling  of  data  values; 

C.  Axes  presentation  and  format  options,  to  include  alphanume'ic  labeling. 
UPLOT  may  be  called  by  the  following  sequence: 

CALL  UPLOT  (X.Y,  CURVES,  PARR  AY, OPT  ARY) 

CURVES  is  a single-valued  variable  which  denotes  ths  number  of  curves  to  be  plotted. 
PARRAY  is  an  array  which  describes  the  number  of  data  points  for  each  curve;  e.g., 
PARRAY(l)  is  the  number  of  data  points  comprising  the  first  curve,  PARRAY(2)  is  the 
number  of  points  for  the  second  curve,  etc.  OPTARY  is  a character  array  which  specifies 
the  data  presentation  format  applicable  to  each  given  curve.  Each  element  of  OPTARY 
must  not  exceed  4 characters  in  length,  and  must  represent  a valid  pen-status  option 
such  as  'LINE',  'VECT',  etc.  Since  PARRAY  and  OPTARY  follow  the  same  general 
nomenclature  in  describing  the  characteristics  of  a given  curve,  both  of  these  arrays 
must  have  as  many  elements  as  there  are  curves  to  be  plotted.  Arrays  X and  Y contain 
the  actual  data  values  grouped  by  curve.  The  size  of  the  X and  Y arrays  must  be  equal  to 
the  sum  of  the  elements  of  PARRAY.  The  general  format  of  each  of  these  arrays  is 
outlined  in  the  following  figure. 

Contents  of  Arrays  Used  in  UPLOT 

PURPOSE  OF  PLOT  - Plot  three  curves  having  8,  4 and  5 points  each 


Curve  1 


Curve  2 


X 
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Curve  3 
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For  those  users  desiring  to  plot  only  a single  curve  using  the  current  line  type,  there 
exists  a special  form  of  UPLOT  — UPL0T1  — which  has  a simplified  calling  sequence. 
UPL0T1  offers  all  of  the  various  options  available  through  UPLOT  and  may  be  called  by 
the  following  sequence: 


CALL  UPL0T1  (X.Y.PTS) 

X and  Y are  arrays  containing  (he  data  values  (o  be  plotted  and  PTS  is  a single-valued 
variable  indicating  the  number  of  points  which  comprise  the  curve. 

The  visual  results  obtained  through  UPLOT  depend  upon  the  status  of  the  GSA  at  the 
time  UPLOT  is  invoked.  All  of  the  high-level  graphics  parameters  are  assigned  default 
values  by  USTART.  and  may  be  modified  through  conventional  calls  to  USET  and  UPSET. 
Although  many  of  these  options  will  be  presented,  it  is  not  the  intent  of  this  chapter  to 
discuss  each  particular  option  in  detail,  further  information  may  be  found  in  the 
subroutine  writeups 


Coordinate  System  Options 

The  two  types  of  coordinate  systems  applicable  to  UPLOT  are  specified  through  USET  in 
the  following  manner: 

CALL  USET  ('RECTANGULAR') 

CALL  USET  ('POLAR') 

Under  RECTANGULAR  coordinates,  the  user  is  given  the  option  of  specifying  linear  or 
logarithmic  mappings  of  the  independent  and  dependent  variables:  ’LINXAXIS', 
LOGXAXIS',  'LNXAXIS',  LINY  AXIS',  ’LOGYAXIS’.  and  LNYAXIS'.  The  LN'  axis  option 
implies  that  natural  (Naperian)  logarithms,  as  opposed  to  common  (base  1 0)  logarithmic 
transformations  are  to  be  applied  to  the  data  values  when  they  are  displayed;  this  option 
is  particularly  useful  for  Arhennius  plots  and  other  applications  in  which  the  variables 
are  related  by  an  exponent  of  'e'. 


Scaling  Options 

There  are  three  options  applicable  to  the  scaling  of  data  values  for  a graphical  display 
under  UPLOT:  'AUTOSCALE'.  'FULLSCALE',  and  OWNSCALE’.  Under  AUTOSCALE, 
the  range  of  values  to  be  plotted  is  examined  and  scaling  occurs  so  that  the  graph  will  be 
presented  with  'nice'  numbers  at  the  tic  marks  on  the  axis  (if  requested).  The 
FULLSCALE  option  resembles  AUTOSCALE  with  the  exception  that  a zero  is  forced  on 
*he  X-axis.  OWNSCALE  uses  the  virtual  window  established  by  the  user  upon  entry  to 
(PLOT  in  order  to  scale  the  data  values,  hence,  a zero-value  is  not  forced  on  the  X-axis. 
Thus,  'nice'  numbers  may  not  necessarily  appear  as  numeric  labels,  and  all  of  the  data 
points  may  not  be  displayed  should  they  extend  beyond  the  window  limits. 

There  are  also  two  options  relating  to  the  calculation  of  the  scale  factors,  'NEWSCALE' 
and  'OLDSCALE'.  With  the  'NEWSCALE'  option,  the  scale  factors  used  to  map  the  data 
onto  the  display  screen  is  always  recalculated.  Specifying  'OLDSCALE'  results  in  this 
calculation  being  bypassed,  with  the  result  that  a scaling  factor  used  in  a previous  plot  is 
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used  (or  the  current  plot.  This  ofter  results  in  an  increase  in  speed  at  which  the  plots  are 
produced. 


General  Purpose  Axes  Creation 

Subroutine  UAXIS  is  invoked  by  subroutine  UPLOT  to  generate  the  desired  axes  for  the 
input  data  arrays.  It  is  specified: 

CALL  UAXIS(XMIN,XMAX,YMIN,YMAX) 


Axes  Options 

The  options  which  apply  to  the  axes  may  be  further  subdivided  into  the  following 
categories: 

A.  Axes  existence  options. 

B.  Axes  format  options. 

C.  Axes  positioning  options 
0.  X and  Y labeling  option. 

E.  Numeric  label  format  options. 

'XY AXES'.  'XAXIS',  'YAXIS',  and  'NOAXES'  comprise  the  USET  options  which  specify  the 
existence  of  an  axis.  XYAXES  indicates  tnat  both  X and  Y axes  are  to  be  drawn,  whereas 
the  XAXIS  or  YAXIS  options  are  be  used  when  only  one  of  the  respective  axes  is  desired. 
The  NOAXES  option  will  suppress  the  display  of  the  X and  Y axes,  but  will  permit  axis 
labelling  should  the  user  so  desire.  The  existence  or  lack  of  any  axis  does  not  influence 
the  scaling  mode  which  the  user  has  requested 

The  axes  format  options  consist  of  allowing  the  user  to  specify  either  'Pl.AINAXES'. 
'TICAXES',  or  'GRIDAXES'.  Under  PLAINAXES,  the  specified  axis  (or  axes)  will  appear 
as  a solid  line  The  TICAXES  option  will  force  the  axes  to  be  drawn  as  ticked  lines,  with 
the  tic  intervals  specified  by  the  UPSET  options: 

CALL  UPSET  (TICX, XINTERVAL) 

CALL  UPSET  (TICY  .YINTERVAL) 

XINTERVAL  and  YINTERVAL  are  single-valued  REAL  variables  which  specify  the 
interval  (in  current  units)  at  which  tic  marks  are  to  appear  on  the  X and  Y axes 
respectively.  Under  the  default  values  of  zero  X and  Y tick  intervals,  UPLOT  will  choose 
suitable  intervals  based  upon  the  axes  existence  and  data  scaling  options  specified  by 
the  user.  The  GRIDAXES  option  should  be  used  whenever  grid  lines  are  desired  for  the 
axes  which  have  been  defined.  The  grid  spacing  will  be  determined  in  the  same  manner 
as  the  tic  interval  under  TICAXES.  Under  POLAR  coordinates.  XINTERVAL  defines  the 
radial  distance  between  concentric  circles  which  comprise  the  grid  lines  for  the  R-axis: 
whereas.  YINTERVAL  specifies  the  angular  increment  at  which  grid  lines  which  be 
drawn  for  the  0-axis. 

The  user  may  position  his  axes  through  the  use  of  the  following  options:  ’EDGEAXES', 
ZEROAXES',  XZEROYEDGE',  YEDGEXZERO',  XEDGEYZERO',  and  YZEROXEDGE'. 
The  EDGEAXES  option  indicates  that  the  axis  (or  axes)  is  to  be  oriented  near  the  edges 
of  the  currently  defined  device  area.  When  the  EDGEAXIS  option  is  used  in  conjunction 
with  XYAXES  and  OWNSCALE,  UPLOT  will  generate  X and  Y axes  which  intersect  at  the 
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minimum  values  contained  within  the  X and  Y arrays.  In  addition,  the  axes  will  be 
positioned  nerr  the  'eft  and  bottom  edges  of  the  device  area.  Should  the  minimum  and 
maximum  val  les  of  the  X and  Y arrays  constitute  an  interval  wnich  contains  zero,  the 
ZEROAXES  option  may  be  used  to  force  the  intersection  of  the  axes  through  the  given 
zero  point.  Should  ZEROAXES  be  specified,  and  zero  is  not  contained  within  the  defined 
interval.  EDGEAXES  will  be  generated.  XZEROYEDGE,  YEDGEXZERO,  XEDGEYZERO, 
and  YZEROXEDGE  options  are  merely  extensions  of  the  EDGEAXES  and  ZEROAXES 
options,  and  are  subject  to  the  constraints  outlined  above. 

The  user  is  provided  with  the  ability  to  control  the  format  under  which  the  X and  Y axes 
are  labeled  through  the  use  of  the  following  options:  'NOXLABEL',  XNUMERICLABEL'. 
'XALPHALABEL',  'XBOTHLABELS',  NOYLABEL',  YNUMERICLABEL'.  'YALPHALABEL', 
and  'YBOTHLABELS'.  'NOXLABEL'  and  'NOYLABEL'  should  be  used  when  the  labeling 
of  the  X and  Y axes  is  to  be  supressed.  The  'XNUMERICLABEL'  and  'YNUMERICLABEL' 
options  indicate  that  numeric  labels  are  to  be  created  along  the  X and  Y axes  at  the  tic 
intervals  specified  by  'TICX'  and  'TICY'  respectively.  The  actual  values  for  the  numeric 
labels  will  be  based  upon  the  axes  scaling  options  previously  discussed. 
'XALPHANUMtRIC'  and  'YALPHANUMERIC'  allow  the  user  to  generate  alphanumeric 
labels  (or  titles)  for  each  axis.  The  actual  information  to  be  displayed  is  defined  through 
a call  to  UPSET: 

CALL  UPSET  (XLABEL'.XDATA) 

CALL  UPSET  ( YLABEL'.YDATA) 

XDATA  and  YDATA  are  strings  of  up  to  40  characters  in  length,  with  the  standard  string 
termination  character  inserted  at  the  end  of  the  information.  The  XBOTHLABELS  and 
YBOTHLABELS  options  are  used  when  numeric  as  well  as  alphabetic  labels  are  desired. 

The  user  is  provided  with  the  ability  to  control  the  format  under  which  numeric  labels  will 
be  printsd  through  the  use  of  the  BESTFORMAT',  IFORMAT',  and  'GFORMAT'  options 
Under  '(FORMAT',  all  numeric  labels  will  appear  as  integers,  with  truncation  occurring 
for  any  non-integral  values.  GFORMAT  will  generate  labels  which  will  be  edited  into 
either  standard  FORTRAN  'S'  or  'F'  formats.  BESTFORMAT  implies  that  the  numeric 
labels  are  to  be  output  under  the  format  which  is  most  appropriate  for  the  given  label. 

Time  Series  Axes 

In  addition,  there  is  the  axes  routine,  UTAXIS,  that  permits  the  user  to  select,  scale  and 
label  axes.  For  further  information  on  this  routine,  see  the  subroutine  description 
section.  It  is  specified: 

CALL  UTAXIS(BEOPER, PERIOD, YMIN.YMAX) 


Curve  Fitting  Options 

UPLOT  provides  an  additional  facility  for  those  users  desiring  to  fit  linear,  least-squares 
polynomial,  and  spline  curves  to  their  data  points.  Interested  users  are  directed  to  the 
detailed  descriptions  of  UPLOT.  ULSTSQ,  and  ULINFT  contained  within  the  subroutine 
description  section  for  further  details  of  this  capability. 


Extended  High-Level  Graphics 

For  data  presentation  formats  extending  beyond  those  available  through  UPLOT  and 
UPLOT1,  a series  of  generalized  histogram,  barchart  and  piechart  utility  subroutines 
have  been  incorporated  into  GCS.  These  subroutines  are  comprehensive  enough  to 
permit  their  utilization  as  the  core  of  a complete  data  analysis  and  display  program; 
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without  compromising  the  versatility  to  be  ir.corporated  into  a graphics  program  within 
which  they  play  a relatively  minor  role 

Histogram  generation  facilities  are  provided  through  the  use  of  subroutine  UHISTO: 

CALL  UHISTO  (DATA, XN, CELLS) 

DATA  is  a REAL  array  containing  the  data  values  from  which  the  histogram  is  to  be 
constructed,  XN  is  a single-valued  REAL  variable  which  is  used  to  specify  the  number  of 
elements  in  the  DATA  array;  and  CELLS  is  a single-valued  REAL  variable  which 
designates  the  number  of  cells  (or  bars)  which  are  to  appear  on  the  histogram.  The 
standard  axes  existance,  labeling  and  scaling  options  previously  discussed  for  UPLOT 
also  apply  to  UHISTO,  with  the  exception  of  the  GRIDAXIS  option  for  the  X and  Y axes, 
' and  'TICAXIS'  for  the  Y axis. 

Subroutine  UBAR  may  be  invoked  whenever  the  user  desires  to  generate  a barchart. 

CALL  UBAR  (DATA, XN, LABELS, SLABEL) 

DATA  and  XN  are  interpreted  in  the  same  manner  as  described  above  the  UHISTO 
LABELS  is  a character  array  which  is  used  to  specify  the  label  for  each  XN  values  stored 
in  DATA.  SLABEL  is  a single-vaLed  REAL  variable  which  defines  the  length  (in 
characters)  of  each  element  of  the  LABELS  array.  Should  UBAR  encounter  the  standard 
string  termination  character  (;)  while  processing  any  of  the  label  items,  no  additional 
characters  are  obtained  from  the  item  and  the  string  prior  to  the  terminator  is  scaled  to  a 
string  of  SLABEL  characters  in  length. 

Subroutine  UCHART  may  be  invoked  whenever  the  user  desires  to  gnerate  a grouped 
bar  chart  for  multi-valued  data. 

CALL  UCHART(ARRAY, GROUPS, BARS, LABELS, YMAXL) 

Standard  piechart  generation  facilities  are  available  under  GCS  through  subroutine 
UPIE  which  may  be  called  by  the  following  sequence: 

CALL  UPIE  (DATA, XN, LABELS, SLABEL) 

DATA,  XN  LABELS  and  SLABEL  are  interpreted  in  the  same  manner  as  under  UBAR 


ooooo  ooo  ooo 


i 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SAMPLE  PROGRAM  USED  TC  ILLUSTRATE  APPLICATION  OF  SUBROUTINE 
UPLOT1 '.  EIGHT  CURVES  WILL  BE  PLOTTED  IN  POLAR  COORDINATES, 
USING  THE  SINGLE-CURVE  POLAR  PLOTTING  ROUTINE.  THE  PURPOSE  OF 
THIS  EXAMPLE  IS  TO  ILLUSTRATE  THE  USE  OF  THE  HIGH-LEVEL 
SUBROUTINE  TO  PLOT  SINGLE  CURVES  WITHIN  THE  USER-DEFINED  DEVICE 
AREA.  NO  AXES  OR  AXES  LABELING  IS  REQUESTED.  THIS  WAS  WRITTEN 
FOR  A TEKTRONIX  401 0/401 3 TERMINAL. 

INITIALIZE  CONSTANTS  AND  ANGLES 

DIMENSION  R(361 ),  THETA(361 ) 

DATA  PI.W.YO/3.1 41 5925,0.0,4.71  / 

DO  1 1-1,361 

THETA(I)  — FLOAT(i)  ‘Pi/180.0 


ENTER  GCS,  SET  FOR  POLAR.  RADIAN  MEASURE.  NO  AXES  AND  NO  LABELS. 


CALL  USTART 
CALL  USET  ('POLAR') 
CALL  USET  ('RADIANS') 
CALL  USET  ('NOAXES') 
CALL  USET  ('NOXLABEL') 


INCREMENT  LOCATION  OF  WORKING  AREA.  AND  PLOT  THE  FIGURES. 


DO  3 1—1,2 
XO--1.5 
YO  — YO-1.8 
DO  3 J — 1 ,4 
W-W  + 0.5 
XO-XO+1.8 

CALL  UDAREA  (XC,(XO+ 1 5),YO,(YO+ 1 .5)) 

CALL  UOUTLN 
DO  2 K- 1,361 

2 R(K)  — 1.2  — 0-.7*(ABS(COS(W*THETA(K)))-ABS(SIN(W*THETA(K))) 

PLOT  361  DATA  POINTS  SPECIFIED  BY  R'  AND  THETA'  USING  THE 
STANDARD  LINE  OPTION  WITHIN  THE  DEVICE  AREA  WE  HAVE  DEFINED. 
NOTE  THAT  NO  AXES  OR  AXES  LABELING  WAS  SPECIFIED. 

CALL  UPLOT1  (R, THETA, 361.0) 

3 CONTINUE 
CALL  UEND 
STOP 
END 


DIMENSION  RCSSO.THETACSeO 
DATA  PI.V. YS/3. 14160206,0.6,4.71/ 

DO  I Z - I.  901 

t THETACT)  - FLOATCD  • PI  / 188.8 
CALL  USTART 
CALL  U8ET  C 'POLAR' 3 
CALL  U6ET  C'RADIANS'3 
CALL  UBET  C' NOAXES '3 
CALL  UOET  C'NOXLAOEL') 

CALL  User  C'NOYLAOELO 

DO  8 X - I.  2 

XB  - -1.5 

Y»  - Y1  - |.8 

PO  9 O • I.  4 

W - V ♦ S.S 

X8  • XB  ♦ 1 .8 

CALL  UDAREA  CX8. 0®*1 .63. Y8. <Y8»1 .63) 

CALL  UJUTLN 
DO  2 K - 1.  SOI 

2 22?  ,i*r®*2',<SS<c!W<ll»TMrrA<lO»-A08<«INOW»TMETA<IO>» 
CALL  UPL0TI  CR.THETA.Se 1 .85 

S CONTINUE 
CALL  UEM> 

STOP 

END 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  SUBROUTINE 
C 'UPL0T1 DATA  VALUES  CONTAINED  IN  ARRAYS  E2'  AND  'DB'  ARE  PLOTTED 
C IN  A CARTESIAN  COORDINATE  SYSTEM.  A GRIDDED  AXES,  AND 
C ALPHANUMERIC  AXES  LABELING  ARE  PROVIDED  AS  ADDITIONAL  OPTIONS. 

C DEFAULT  VALUF  OF  DEVICE  AREA  IS  USED. 

C 

C LOAD  LABELS  INTO  ARRAYS,  INITIALIZE  ARRAYS. 

DIMENSION  DB(61),E2(61),ARRAY(8) 

CHARACTER  XLABEL*40,YLABEL*40 

DATA  XLABEL/'STEADY-STATE  EXCITATION  VOLTAGE  (VOLTS);'/ 

DATA  YLABEL/'EXCITATION  REFERENCED  TO  1 V (DB)  ;7 
DO  II- 1,61 
DB(I)  — FLOAT(I-I) 

1 E2(l)«10.0**(DB(l)/20.0) 

ENTER  GCS 

CALL  USTART 
CALL  USTUD  (ARRAY) 

INDICATE  THE  DATA  TO  BE  USED  FOR  AXES  LABELING  INFORMATION. 

CALL  UPSET  ('XLABEL'.XLABEL) 

CALL  UPSET  (YLABEL'.YLABEL) 

CALL  UPSET  ('TERMINATOR',  ;') 

INDICATE  THAT  GRIDDED  AXES,  TOGETHER  WITH  NUMERIC  AND  ALPHA 
LABELS  ARE  DESIRED. 

CALL  USET  ('GRIDAXES') 

CALL  USET  ('XBOTHLABEL') 

CALL  USET  ('YBOTHLABEL') 

CALL  'UPLOT1 ' TO  PLOT  A SINGLE  CURVE  OF  61  POINTS  USING  'E2'  AND  'DB'. 
STANDARD  LINE  OPTION  IS  REQUESTED. 

CALL  UPLOT1  (E2.DB.61.0) 

USE  CROSSHAIRS  TO  DEFINE  LOWER  BOUNDARY  THEN  UPPER  BOUNDARY. 
THEN  CALL  UWINDO  AND  PLOT  JUST  THAT  PORTION. 

CALL  UGRIN  (XL.YL.IC) 

CALL  UGRIN  (XU, YU, 1C) 

CALL  UWINDO  (XL.XI.YL.VU) 

CALL  USET  ('OWNSCALE') 

CALL  UDAREA  (ARRAY(5),  ARRAY(6),  ARRAY(7),  ARRAY(8) 

CALL  UERASE 
CALL  UPLOT1  (E2.DB.61 .) 

CALL  UEND 
STOP 
END 


EXAMPLE  VII-2 


t?(l  - 


i/ii-A 


DIMENSION  DfKOD,  E2C0I ) 

CHARACTER  XLABEL*40, YLA0EL»40 

DATA  XLABEL/' STEADY-STATE  EXOTATION  VCLTAOE  CVOLTS),'/ 
DATA  YLASELy' EXCITATION  REFERENCED  TO  IVCDB);'/ 

DO  I I-  I,  61 
D0CI)  - FLOAT CX—t  5 
1 E2CX)  - IO.OmKDBCX)  / 20.0) 

>*ai  i USTART 

CALL  UPSET  C' TERMINATOR',  '*  ') 

CALL  UPSET  C'XLABEL'.XLABEL) 

CALL  UPSET  </YLA0EL/,YLA0EL) 

CALL  U8ET  C'ORXDAXESO 
CALL  USET  C'XBOTHLABEL7) 

CALL  U8ET  C'YBOTHLABELO 
CALL  UPLOTI  CE2.D0.O1 .«) 

CALL  UEND 

STOP 

END 


? 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  SUBROUTINE 
'UPLOT1 '.  DATA  VALUES  CONTAINED  IN  ARRAYS  'E2'  AND  DB'  ARE  PLOTTED  I 

IN  A SEMI-LOGARITHMIC  COORDINATE  SYSTEM  A GRIDDED  AXES.  AND  i 

ALPHANUMERIC  AXES  LABELING  ARE  PROVIDED  AS  ADDITIONAL  OPTIONS. 

DEFAULT  VALUE  OF  DEVICE  AREA  IS  USED. 

INITIALIZE  ARRAYS.  LOAD  LABELS  INTO  LABEL  ARRAYS. 

DIMENSION  DB(61).E2(61) 

CHARACTER  XLABEL*40,YLABEL*40 

DATA  XLABEL/'STEADY-STATE  EXCITATION  VOLTAGE  (VOLTS);'/ 

DATA  YLABEL/'EXCITATION  REFERENCED  TO  1 V (DB)  ;7 
DO  1 1=1,61 
DB(I)  = FLOATO-1 ) 

1 E2(l)  = 1 0.0**(DB(l)/20.0) 

ENTER  GCS 

CALLUSTART 

INDICATE  THE  DATA  TO  BE  USED  FOR  AXES  LABELING  INFORMATION. 

CALL  UPSET  ( XLABEL'.XLABEL) 

CALL  UPSET  (’YLABEL'.YLABEL) 

CALL  UPSET  ('TERMINATOR', ';') 

INDICATE  THAT  GRIDDED  AXES,  TOGETHER  WITH  NUMBERIC  AND  ALPHA 
LABELS  ARE  DESIRED.  ALSO  SPECIFY  WHICH  AXIS  IS  LINEAR,  AND  WHICH  IS 
LOGARITHMIC. 

CALL  USET  ('GRIDAXES') 

CALL  USET  ('XBOTHLABEL') 

CALL  USET  ('YBCTHLABEL') 

CALL  USET  ('LOGXAXIS') 

CALL  USET  ('LINYAX(S') 

CALL  'UPLOT1 ' TO  PLOT  A SINGLE  CURVE  OF  61  POINTS  USING  'E2'  AND  'DB'. 

STANDARD  LINE  OPTION  IS  REQUESTED. 

CALL  UPLOT1  (E2.DB.61 .0) 

CALLUEND 

STOP 

END 


EXAMPLE  VII-3 


10®  10«  J 02  1$® 

STEADY-STATE  EXCITATION  VOLTAGE  CVOLTS3 


DIMENSION  D0CS1 3,E2CS1 3 
CHARACTER  XLABEUM0  YLA0EL*M0 

DATA  XLABEL/'STEADY-STATE  EXCITATION  VOLTAGE  C VOLTS? j '/ 
DATA  YLABELy' EXCITATION  REFERENCED  TO  lVCD03j'/ 

DO  I I ■ ),  01 
D0CX3  - FLOAT Cl- 13 
1 E2CI3  - 1 S . 0*N»CD0CI3  / 20.03 
Cai  i USTART 

CALL  UPSET  C'TERtONATOR','j'3 
CALL  UPSET  C'XLABEL',XLA0EL3 
CALL  UPSET  C'YLABEL.',  YLABEL3 
CALL  U8ET  C'GRIDAXES'? 

CALL  USET  C'XBOTHLABEL'3 
CALL  USET  C'YBOTHLABEL'3 
CALL  USET  C'XLOGAXIS'3 
CALL  USET  C'LINYAXXS'3 
CALL  UPLOTl  CE2,PB,SI .03 
CALL  UEND 
STOP 
END 
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SAMPLE  PROGRAM  TO  ILLUSTRATE  APPLICATION  OF  GCS  SUBROUTINE 
'UHISTO'. 

ALLOCATE  AN  ARRAY  TO  STORE  DATA  VALUES,  AND  INITIALIZE  A COUNTER 

DIMENSION  DATA  (1000) 

DATA  XN/1 000./ 

BUILD  DATA  FROM  SINE  VALUES 
DO  2 I- 1,1 000 

2 DATA(I)  - SIN(FLOAT(l)/1 50.) 

ENTER  GCS  AND  INDICATE  THAT  THE  ENTIRE  DEVICE  AREA  IS  DESIRED. 
CALL  USTART 

CALL  UPSET  ('TERMINATOR', ';') 

CALL  USET (LARGE) 

CALL  USET  ('PERCENTUNITS') 

CALL  UDAREA  (0.,1 00..0..1 00.) 

INDICATE  THAT  THE  HISTOGRAM  IS  TO  BE  'FULLSCALED'  AND  THAT  THE  X 
AXIS  IS  TO  HAVE  ALPHABETIC  AS  WELL  AS  NUMERIC  LABELS.  ALSO  SET 
THE  ALPHABETIC  LABEL  WHICH  IS  TO  BE  PRINTED  ON  THE  X AXIS. 

CALL  USET  ('FULLSCALE') 

CALL  USET  ('XBOTHLABELS') 


12  24  96  46  66  72  64  86  166  198  192  144 

DISTRIBUTION  OP  VALUES  OF  SXHE 


DIMENSION  DATAC 18667 
DATA  XN/1666./ 

DO  2 I ■ 1,  1666 
S DATA Cl?  - SXN<PL0ATCI?/I68.> 
CALL  USTART 
f»Ai  i (jgfr  C'LAME' ) 

CALL  U6ET  C'PERCENTUNITS'? 
CALL  UDAREA  C8., 166. ,8., 186.? 
CALL  U6ET  C'PULLSCALE'? 

CALL  U6ET  C'XBOTHLABELS'? 


CALL  UPSET  C' TERMINATOR', 


CALL  UPSET  C'XLABEL'. 'DISTRIBUTION  OP  VALUES  OP  SINE,'? 
CALL  UKCSTO  CDATA,XN,29. ? 

CALL  UEND 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  GCS 
SUBROUTINE  'UBAR'  TO  DISPLAY  A BAR-CHART. 

ALLOCATE  ARRAYS  TO  STORE  DATA  VALUES  AND  LABELS  FOR  THE  CHART. 


PARAMETER  NUMBER-  7 
DIMENSION  DATA  (NUMBER) 

CHARACTER  LABELS*1 2(NUMBER) 

DATA  DATA/4.,30.,48.,1 0..2..2..4./ 

DATA  LABELS/'ALGOL;',  COBOL;'.  'FORTRAN;',  GMAP;',  'JOVIAL;', 
'SIMSCRIPT ;',  'SNOBOL;'/ 

CALL  USTART 

CALL  USET  ('XBOTHLABELS') 

CALL  UPSET  ('XLABEL',  TYPICAL  LANGUAGE  UTILIZATION  AT  USMA:') 
CALL  UPSET  ('TERMINATOR', ';') 

CALL  UBAR  TO  DISPLAY  THE  DATA  VALUES  CONTAINED  WITHIN  THE  DATA 
ARRAY.  AND  LABELS  SPECIFIED  BY  THE  LABELS  ARRAY. 

CALL  UBAR  (DATA.FLOAT(NUMBER), LABELS, 1 2.) 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THIS  FORTRAN  PROGRAM 

CALL  UEND 

STOP 

END 


EXAMPLE  VII-5 
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JOVIAL 


FORTRAN 


AL80L 


ex  isx2axsax4ex6axMX7BXsexsex  isex 

TYPICAL  LANBUASE  UTILIZATION 


PARAMETER  NUMBER-7 
DIMENSION  DATACNUNDOO 
CHARACTER  LABELS- I2CMUMBEJO 
DATA  DATA/4.,  SB.,  4*.,  IS. .2. ,2. .4./ 

DATA  LABELS/'ALSOLj', 'COBOL;', 'FORTRAN;', 'SNAP*', 'JOVIAL* 
'SIHSCRIPTj  ', 'SNOBOL; V 

mi  i list  art 

CALL  UPSET  ('TERMINATOR', ';  '5 
i»*i  » U8ET  C'XBOTMJkBELSO 

CALL  UPSET  ('XLABEL'  'TYPICAL  LANSUASE  UTILIZATION ; ' > 
CALL  UBAR  CDATA,  FLOAT  (NUMBER),  LABELS, 12.7 
CALL  UEND 


J . » 
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c SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  GCS 

C SUBROUTINE  'UPIE'.  IN  ADDITION  TO  USING  UPIE  TO  DISPLAY  A PIE-CHART, 
C SOME  ADDITIONAL  GRAPHIC  OUTPUT  IS  PERFORMED  THROUGH  USE  OF 
C UPRNT1. 

C 

C ALLOCATE  ARRAYS  TO  STORE  DATA  VALUES  AND  LABELS  FOR  THE  CHART. 

C 

PARAMETER  NUMBER  - 7 
DIMENSION  DATA  (NUMBER) 

CHARACTER  LABELS*  1 2(NUMBER) 

DATA  D ATA, Y/4.,30.,48., 1 0.,2.,2.,4..1 007 

DATA  LABELS/'ALGOL;'  'COBOL;'.  'FORTRAN;'  'GMAP;',  JOVIAL;'. 
SIMSCRIPT;',  SNOBOL;'/ 

ENTER  GCS,  INDICATE  THAT  AN  ALPHABETIC  LABEL  13  DESIRED  FOR  THE  X 
AXIS,  AND  SPECIFY  THE  LABEL  WHICH  IS  TO  BE  PRINTED. 

CALL  USTART 

CALL  USET  ( XALPHABETIC  ) 

CALL  UPSET  ('XLABEL',  'TYPICAL  LANGUAGE  UTILIZATION  AT  USMA;') 

CALL  UPSET  ('TERMINATOR', ';') 

CALL  UPIE  TO  DISPLAY  THE  DATA  VALUES  CONTAINED  WITHIN  THE  DATA 
ARRAY,  AND  LABELS  SPECIFIED  BY  THE  LABELS  ARRAY. 

CALL  UPIE  (DATA.FLOAT(NUMBER), LABELS, 1 2.) 

SET  ADDRESSING  MODE  TO  DEVICE'/'PERCENTUNITS'.  SET  DEVICE  AREA 
WHICH  UTILIZES  THE  ENTIRE  DISPLAY  SURFACE.  AND  OUTPUT  VALUES  IN 
LABEL  AND  DATA  ARRAYS,  ADJACENT  TO  THE  PIE-CHART  WHICH  HAS  JUST 
BEEN  GENERATED. 

CALL  USET  ('DEVICE') 

CALL  USET  ('PERCENTUNITS') 

CALL  UDAREA  (0..1 00..0..1 00.) 

DO  1 1-1,  NUMBER 
Y — Y-(1 00./FLOAT(NUMBER+ 1 ) 

CALL  UMOVE  (0.,Y) 

CALL  UPRNT1  (LABELS(I).'TEXT') 

CALL  URPNT1  ('-;',  TEXT') 

CALL  UPRNT1  (DATA(I), 'INTEGER') 

CALL  UPRNT1  (V.'TEXT) 

1 CONTINUE 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THIS  FORTRAN  PROGRAM. 

CALL  UEND 
STOP 
END 
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FORTRAN  - 4SX 


SNAP  - l*» 


JOVIAL  - ZX 


8ZMSCRZPT  - ZX 


SNOBOL  - 4X 


4 


TYPICAL  LANSUA8E  UTILIZATION 


DIMENSION  DATACNUHBERS 

CHARACTER  LABELS*  1 2CNUMBCRS 

DATA  DATA.Y/4..*S.,4S.#10.,2..2..4.,  ISO./ 

DATA  LABELS/' ALSOLj ', ' COBOL j ', 'FORTRAN; ' , 'SNAP; ', 'JOVIAL; 
A 'SIHSCRIPT;', 'SNOBOL »'/ 

f»Ai  i VJSTART 

CALL  UPSET  ('TERMINATOR'  ';'S 
f**i  i UMTT  ('XALPHABETXC'S 

CALL  UPSET  ('XLABEL'  'TYPICAL  LANOUA9E  UTILIZATION ; ' S 
CALL  UPIE  CDATA. FLOAT (NUMBERS, LABELS.  12.5 
CALL  USET  ('DEVICE'S 
CALL  USET  ('PERCCNTUNXTS'S 
CALL  UDAREA  CB.. ISO. .8., ISB.S 
DO  I I - l,  NUMBER 
V - Y - OSS.  / FLOAT (NUMBER* I SS 
CALL  UHOVE  CS..YS 
CALL  UPRNTI  CLABCLS CIS  'TEXT'S 
CALL  UPRNTI  C'  - 'TEXT'S 
CALL  UPRNTI  COAT A CIS. 'INTE OCR'S 
CALL  UPRNTI  ('X; '. 'TEXT'S 
I CONTINUE 
CALL  UEND 


r 


CHAPTER  VIII 

COORDINATE  SYSTEMS  AND  TRANSFORMATIONS 


An  Overview  of  OCS  Coordinate  Systems 

The  GCS  coordinate  system  options  have  been  designed  to  provide  adequate  flexibility 
for  the  user  in  order  to  enable  him  to  work  in  whatever  type  of  coordinate  system 
environment  is  most  natural  and  convenient  for  him  to  use  at  a particular  point  in  his 
program.  There  are  several  areas  in  which  basic  options  exist;  however,  it  is  imperative 
that  the  user  fully  understand  the  basic  coordinate  system  under  GCS  before  attempting 
to  alter  any  of  the  default  options. 

The  GCS  default  coordinate  system  which  is  defined  at  the  start  of  a GCS  program  (via  a 
CALL  USTART)  is  a simple,  pre-defined  Cartesian  (rectangular)  X-Y  coordinate  system. 
No  special  options  such  as  semi-logarithmic  or  log-log  plotting  are  in  effect.  Axes  are 
not  rotated  with  respect  to  the  screen  or  plotbed  and  no  special  scaling  options  are  in 
force.  Distances  are  measured  from  the  origin,  not  incrementally  from  the  last  point 
plotted.  As  described  in  Chapter  III.  any  drawing  done  in  this  coordinate  system  may  be 
viewed  through  an  adjustable  size  window  which  can  automatically  clip  off  irrelevant  or 
distracting  parts  of  the  picture. 

' A GCS  programmer  may  specify  that  he  wishes  to  use  one  of  three  coordinate  systems 

when  working  in  two  dimensions: 

Cartesian  (rectangular) 

Log-log  or  semi-logarithmic  rectangular 

Polar  coordinates. 

Points  or  lines  to  be  plotted  may  be  identified  either  by  absolute  coordinate  position  or 
relative  to  the  last  plotted  point  (incremental).  The  scale  at  which  plotting  is  to  occur 

i may  be  user-specified  in  virtual  space  which  can  be  projected  onto  the  plotting  device  at 

any  desired  scale  or  it  may  be  directly  controlled  in  terms  of  dimensions  of  the  plotting 
device.  These  dimensions  may  be  specified  in  inches,  centimeters,  font-units 
(alphanumeric  character  heights  and  widths)  percent-units,  or  raster  units. 

In  addition  to  the  basic  or  SYSTEM  axis,  the  user  may  define  any  number  of  secondary 
USER  axis  systems  which  may  be  rotated,  translated,  and  scaled  differently  from  the 
SYSTEM  axis.  Such  secondary  USER  axes  may  be  defined  relative  to  the  basic  SYSTEM 
axis  or  relative  to  a previously  defined  USER  axis.  This  feature  facilitates  the  definition 
of  complex  coordinate  systems  where,  for  example,  one  moves  freely  from  coordinates 
based  upon  a location  on  a satellite  circling  the  earth.  Similarly,  the  use  of 
simultaneously  maintaining  a secondary  axis  whose  origin  is  a point  on  the  curve, 
oriented  controlled  independently  of  one  another  and  defined  either  with  respect  to  the 
SYSTEM  axis  or  cumulatively  based  on  successive  transformations  on  a series  of 
different  USER  axes.  Since  the  rotations  and  scaling  in  GCS  are  accomplished  by 
standard  matrix  operations  one  can  obtain  mathematically  accurate  visual  representa- 
tions of  highly  abstract  vector  spaces  such  as  those  common  to  many  linear 
programming  applications. 


Coordinate  System  Definition 

In  order  to  provide  the  capabilities  discussed  above.  GCS  has  incorporated  a very 
powerful  secondary  axis  system  which  allows  the  user  to  define  a new  axis  origin.  The 
new  origin  can  be  displaced  from  the  current  origin,  oriented  about  the  new  center  point, 
and/or  have  a different  unit  length  for  the  X and  for  the  Y axis.  The  new  axis  is  defined 
through  subroutine  UCOSYS  which  is  called  by  the  following  sequence: 
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CALL  UCOSYS  (OX.DY.SCLX.SCLY, ANGLE) 

DX  and  OY  are  used  to  specify  (in  current  units  of  the  current  coordinate  system)  the 
position  of  the  origin  for  the  new  axis.  SCLX  and  SCLY  define  the  scale  of  the  new  axis 
unit  lengths  with  respect  to  their  sizes  in  the  current  axis  system.  ANGLE  is  used  to 
specify  the  rotation  (in  current  angular  un’ts)  of  the  new  axis  about  its  origin. 

The  key  rule  to  be  remembered  is  that  every  axis  system  has  an  origin  which  is 
coordinate  location  (0..0.);  all  rotation  occurs  about  this  center  point.  The  SYSTEM 
origin  is  the  primary  ori  jin  for  the  default  axis  system.  In  virtual  space,  the  SYSTEM 
origin  is  at  virtual  location  (0..0.);  this  location  may  or  may  not  be  within  the  window 
defined  by  the  user.  In  device  space,  it  is  a point  on  the  display  surface  (usually  at  the 
lower  left  corner)  which  is  at  raster  position  (0..0.).  At  any  time,  the  user  can  insure  that 
his  coordinate  addressing  is  interpreted  with  respect  to  the  primary  origin  by  making  the 
following  call  to  USET  prior  to  addressing: 

CALL  USET  ('SYSTEMAXIS') 

To  request  that  coordinate  specifications  be  interpreted  with  respect  to  the  user's 
current  axis  system,  the  following  option  is  used: 

CALL  USET  ('USERAXIS') 

The  default  user  axis  coincides  with  the  system  axis.  When  a new  user  axis  is  created  by 
subroutine  UCOSYS,  the  GCS  status  is  automatically  switched  to  'USERAXIS'.  When 
UCOSYS  is  invoked,  there  are  actually  two  USER  axes  created.  They  are  either  identical 
to  each  other,  or  one  'lags'  (in  a mathematical  sense)  behind  the  other  by  one  USER  axis 
definition.  One  of  these  USER  axes  is  called  the  WORKING  axis  and  the  other  is  called 
the  REFERENCE  axis.  The  REFERENCE  axis  is  identical  to,  or  'behind'  the  WORKING 
axis.  Under  default  conditions,  the  REFERENCE  and  WORKING  axes  are  identical  to 
each  other;  furthermore,  these  axes  initially  coincide  with  the  SYSTEM  axis.  When  a 
new  USER  axis  is  defined,  it  is  created  from  the  REFERENCE  axis  and  entered  as  the 
WORKING  axis  transform.  If  UCOSYS  is  in  the  cumulative  mode,  then  the  new 
WORKING  axis  definition  is  placed  back  into  the  REFERENCE  axis  transform.  Thus,  the 
REFERENCE  axis  may  be  viewed  as  a permanent  axis,  while  the  WORKING  axis  may  be 
considered  as  only  temporary  in  nature. 

When  multiple  coordinate  systems  are  specified  by  the  user,  the  new  axis  is  computed 
independently  of  the  previous  USER  axis.  This  is  the  new  axis  which  is  computed  from 
the  last  permanent  axis  (usually  the  SYSTEM  axis)  and  replaces  any  previously  defined 
USER  axis.  This  feature,  which  is  the  default  condition  under  GCS,  is  selected  by  the 
following  call: 

CALL  USET  ('WORKING AXIS') 

For  advanced  problems,  the  user  may  wish  to  define  multiple  coordinate  systems  that 
are  computed  on  a cumulative  basis.  That  is,  the  new  axis  is  computed  from  the  last 
permanent  axis,  and  becomes  the  new  permanent  axis.  This  option  may  be  specified 
through  the  following  call: 

CALL  USET  ('REFERENCEAXIS') 

There  exist  several  useful  subroutines  within  GCS  which  are  subsets  of  subroutine 
UCOSYS.  and  facilitate  the  definition  of  a secondary  axis  at  the  current  beam  position. 
Subroutine  UROTAT  creates  a new  axis  rotated  about  an  origin  defined  by  the  current 
beam  position.  Subroutine  USCALE  defines  an  axis  at  the  current  beam  position  having 
a specified  X axis  and  Y axis  scaling.  Subroutine  UORIGN  defines  a new  axis  at  the 
current  beam  position  with  no  change  of  scale  or  orientation.  These  subroutines  may  be 
invoked  by  the  calling  sequences: 
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CALL  UROTAT  (ANGLE) 
CALL  USCALE  (SCLX.SCLY) 
CALL  UORIGN 


ANGLE,  SCLX,  and  SCLY  are  interpreted  in  the  same  manner  described  for  subroutine 
UCOSYS.  After  the  subroutines  are  invoked,  the  current  beam  position  is  associated 
with  coordinate  location  (0..0.). 

in  certain  situations,  such  as  the  display  of  unrelated  objects,  multiple  independent 
secondary  axis  transk  stions  must  be  created  simultaneously.  In  order  to  operate 
upon  and  modify  one  system,  it  is  necessary  to  save  the  previous  system  and  later 
restore  it  as  needed.  This  facility  is  available  under  GCS  through  the  use  of  the  following 
subroutines: 

CALL  USVTR  (ARRAY) 

which  is  used  to  save  the  current  transform,  and 

CALL  UNSVTR  (ARRAY) 

which  is  called  in  order  to  restore  a transformation  from  the  array  ARRAY,  where  ARRAY 
is  a 21  word  dimensioned  variable.  Note  that  a call  to  USVTR  does  not  affect  the  status 
of  the  Graphics  Compatibility  System,  but  that  a call  to  UNSVTR  causes  the  restoration 
of  all  variables  and  switches  to  the  values  that  they  held  when  the  companion  USVTR 
was  invoked.  The  user  should  not  attempt  to  invoke  UNSVTR  for  an  array  without 
previously  saving  a transform  into  that  array  by  use  of  USVTR. 

The  secondary  axis  transformation  feature  of  GCS  is  a very  powerful  mathematical 
system  which  is  quite  useful  to  the  beginning  as  well  as  advanced  graphics  programmer. 
However,  certain  combinations  of  axis  composition  and  specification  will  produce 
results  which  are  mathematically  correct  but  not  easily  understood.  For  example,  the 
composition  of  a cumulative  axis  from  an  axis  with  non-uniform  X and  Y scaling  will 
introduce  a skew  factor.  For  additional  information  on  the  secondary  axis  implementa- 
tion under  GCS,  interested  users  are  directed  to  the  subroutine  description  section. 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  THE  USE  OF  GCS  SUBROUTINE 
C 'UCOSYS'.  TWO  DISPLAYS  WILL  BE  DEFINED:  A TRIANGLE  WILL  BE  PLOTTED 
C IN  THE  DEFAULT  COORDINATE  SYSTEM;  AND  A SQUARE  WILL  BE  DRAWN  IN 
C A USER-DEFINED  SECONDARY  AXIS  SYSTEM. 

C 

C ENTER  GCS,  DEFINE  A NEW  VIRTUAL  WINDOW,  AND  OUTLINE  WINDOW. 

C 

CALL  USTART 

CALL  USET  ('WORKING AXIS') 

CALL  UWINDO  (-1 0.,1 0.,-1 0..0.) 

CALL  UOUTLN 

PROVIDE  PEN  COMMANDS  TO  DRAW  A TRI/>  NGLE  IN  THE  DEFAULT  GCS 
COORDINATE  SYSTEM. 

CALL  UMOVE  (0..0.) 

CALL  UPEN  (2..0.) 

CALL  UPEN  (0..2.) 

CALL  UPEN  (0,0.) 

DEFINE  A SECONDARY  AXIS  WITH  AN  ORIGIN  AT  (5., 4 ),  HAVING  THE  SAME  X 
AND  Y SCALE  FACTORS  AS  THE  DEFAULT  SYSTEM,  AND  ROTATED  BY  45 
DEGREES. 

CALL  UCOSYS  (5..4..1  .,1  .,45.) 

PROVIDE  PEN  COMMANDS  TO  DRAW  A SQUARE  WITHIN  THE  SECONDARY 
AXIS  THAT  WE  HAVE  JUST  DEFINED. 

CALL  UMOVE  (0  ,0.) 

CALL  URECT  (3  ,3.) 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THE  FORTRAN  PROGRAM. 

CALL  UEND 
STOP 
END 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  COMPOSITION  OF  MULTIPLE 
C USER  AXES.  THE  AXIS  DEFINITION  WILL  BE  PERFORMED  IN  THE  NON 
C CUMULATIVE'  OR  'WORKING  AXIS'  MODE.  ENTER  GCS,  DEFINE  A NEW 
C VIRTUAL  WINDOW,  AND  OUTLINE  WINDOW. 

C 

CALL  USTART 

CALL  USET  ('WORKING  AXIS') 

CALL  UWINDO  (-2  ,8., -2., 8.) 

CALL  UCUTLN 

DRAW  AN  AXIS  AT  THE  CURRENT  AXIS  ORIGIN.  THIS  AXIS  DISPLAY 
SUBROUTINE  WILL  BE  INVOKED  DURING  LATER  PORTIONS  OF  THIS 
PROGRAMMING  EXAMPLE. 

CALL  AXIS 

MOVE  BEAM/PEN  TO  THE  ORIGIN  OF  THE  CURRENT  (SYSTEM)  AXIS,  THEN 
DEFINE  A SECONDARY  AXIS  WITH  AN  ORIGIN  AT  (2  ,5.)  AND  ROTATED  BY 
TWENTY  DEGRFES. 

CALL  UMOVE  (0..0.) 

CALL  UCOSYS  (2..5..1  .,1  .20) 

DRAW  A DASHED  LINE  FROM  THE  CURRENT  BEAM/PEN  POSITION  TO  THE 
NEW  SECONDARY  AXIS  ORIGIN,  THEN  OUTLINE  THE  NEW  AXIS. 

CALL  UPEN1  (0.,0.,'DARROW') 

CALL  AXIS 

DEFINE  ANOTHER  AXIS  WITH  AN  ORIGIN  AT  (5  ,1 .)  AND  ROTATED  BY  FORTY- 
FIVE  DEGREES 

CALL  UCOSYS  (5.,1.,1.,1.,45.) 

REVERT  TO  SYSTEMAXIS'  MODE,  AND  MOVE  TO  THE  ORIGIN  OF  THE 
SYSTEM  AXIS. 

CALL  USET  ('SYSTEMAXIS') 

CALL  UMOVE  (0  ,0.) 

RETURN  TO  USERAXIS'  MODE,  AND  DRAW  A DASHED  LINE  FROM  THE  ORIGIN 
OF  THE  SYSTEM  AXIS  TO  THE  ORIGIN  OF  THE  USER  AXIS.  AFTER  THIS  IS 
DONE.  OUTLINE  THE  CURRENT  USER  AXIS. 

CALL  USET  ('SYSTEMAXIS') 

CALL  UMOVE  (0  ,0.) 

RETURN  TO  USERAXIS'  MODE.  AND  DRAW  A DASHED  LINE  FROM  THE  ORIGIN 
OF  THE  SYSTEM  AXIS  TO  THE  ORIGIN  OF  THE  USER  AXIS.  AFTER  THIS  IS 
DONE,  OUTLINE  THE  CURRENT  USER  AXIS. 

CALL  USET  ('USERAXIS') 

CALL  UPEN1  (O  .O  .'DARROW  ) 

CALL  AXIS 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  A FORTRAN  PROGRAM. 

CALLUEND 
STOP 
END 


viii-6 


o o o o 


/ 

/ 

/ 


X 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


□start 

user  C'VORKXNSAXXPO 

UWXNPCi 

UOUTLN 

AXXS 

wove  cs.,s.> 

upExt  cs.^./paMMo 

AXXS 

UCOSYS  CS.,1.,1., t.,4C.> 
user  C'SYSTEMAXXSO 
UNOVB  CS.,S.> 
user  C'UScRAXXS'? 

UPEMt  C®.,®., 'DARROWO 
AXXS 


QO 


CALL  Wove  C-K*S.> 

CALL  trail  CI.#S.,'LARR0IIO 
CALL  WOVE  CS.,-I.> 

call  trai  c®.#  i .> 
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C EXAMPLE  PROGRAM  USED  TO  ILLUSTRATE  COMPOSITION  OF  MULTIPLE 

C USER  AXES.  THE  AXIS  DEFINITION  WILL  BE  PERFORMED  IN  THE 

C 'CUMULATIVE'  OR  REFERENCE  AXIS'  MODE 
C 

C ENTFRQCS.  DFriNF  A NFW  VIRTUAL  WINDOW.  AND  OUTLINE  WINDOW 
C 

CALL  USTART 
CALL  UWINDO  (-1  ..9..-1  .,9.) 

CALL  UOUTLN 

INDICATE  THAT  SECONDARY  AXES  ARE  TO  BE  BUILT  CUMULATIVELY. 

CALL  USET  ( REFERENCEAXIS  ) 

DRAW  AN  AXIS  AT  THE  CURRENT  AXIS  ORIGIN.  THIS  AXIS  DISPLAY  ROUTINE 
IS  IDENTICAL  TO  THAT  USED  BY  THE  PREVIOUS  EXAMPLE. 

CALL  AXIS 

MOVE  BEAM/PEN  TO  THE  ORIGIN  OF  THE  CURRENT  (SYSTEM)  AXIS,  THEN 
DEFINE  A SECONDARY  AXIS  WITH  AN  ORIGIN  AT  (2  .5.)  AND  ROTATED  BY 
TWENTY  DEGREES 

CALL  UMOVE  (0  ,0.) 

CALL  UCOSYS  (2.5., 1 „1  .20.) 

DRAW  A DASHED  LINE  FROM  THE  CURRENT  BEAM/PEN  POSITION  TO  THE 
NEW  SECONDARY  AXIS  ORIGIN,  THEN  OUTLINE  THE  NEW  AXIS. 

CALL  UPEN1  (O.O.'DARROW') 

CALL  AXIS 

NOW  MOVE  TO  THE  ORIGIN  OF  THE  CURRENT  SECONDARY  COORDINATE 
SYSTEM,  THEN  DEFINE  ANOTHER  SECONDARY  AXIS  WITH  AN  ORIGIN  AT 
(5  ,1 .)  AND  ROTATED  BY  FORTY-FIVE  DEGREES. 

CALL  UMOVE  (0  ,0.) 

CALL  UCOSYS  (5  ,1  .,1  .,1  .,45.) 

DRAW  A DASHED  LINE  FROM  THE  CURRENT  BEAM/PEN  POSITION  (THE 
ORIGIN  OF  THE  PREVIOUS  SECONDARY  AXIS)  TO  THE  ORIGIN  OF  A CURRENT 
SECONDARY  AXIS,  THEN  OUTLINE  THE  CURRENT  AXIS. 

CALL  UPEN1  (0.,0.,'DARROW') 

CALL  AXIS 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  A FORTRAN  PROGRAM. 

CALL  UEND 
STOP 
END 
C 

SUBROUTINE  AXIS 
CALL  UMOVE  (-1,0.) 

CALL  UPEN1  (1.,0.,'LARROW') 

CALL  UMOVE  (0  ,-1.) 

CALLUPEN  (0  .1 .) 

RETURN 

END 
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CALL  USTAKT 
CALL  UMZHPO  C-t 
CALL  UOUTLW 

call  ukt  c'RcnooceAXxso 

CALL  AXIS 

call  wove  ca.,a.> 
call  upeni  <a.,a./oAMboCr'> 

CALL  AXIS 

CALL  UHOVC  ca.,a.) 

CALL  UOtMY* 

CALL  UKHt  Clwt./PAAmO 
CALL  AXIS 
CALL  ICMP 


CALL  UHOVC  C- 

CALL  UPCMt  ,'LAWWWO 

CALL  UHOVC  Ca.,”».3 
CALL  UPW 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  GCS 
C SUBROUTINE  'UCOSYS'  TO  DEFINE  A DYNAMIC  SECONDARY  AXIS  SYSTEM 

C THE  EXAMPLE  CALCULATES  THE  HORIZONTAL  AND  VERTICAL 

C COMPONENTS  OF  VELOCITY  AND  DISPLACEMENT  FOR  A PROJECTILE 
C WHICH  TUMBLES  DURING  FLIGHT  THIS  EXAMPLE  IS  IDENTICAL  TO  THE 
C PREVIOUS  PROGRAM  WITH  THE  EXCEPTION  OF  THE  ADDED  ROTATIONAL 
C COMPONENT. 

C 

C INITIALIZE  TIME,  ROTATIONAL  ANGLE,  VELOCITY,  AND  DISPLACEMENTS 

C 

DATA  T.THETA,VO,XO,YO/O.,75.,1 07,-180.0./ 


ENTER  GCS,  DEFINE  DISPLACEMENT  WINDOW,  AND  OUTLINE  THIS  WINDOW. 
CALL  USTART 

CALL  USET  ('WORKINGAXIS') 

CALL  UWINDO  (-225., 225  ,-1 5 ,95.) 

CALL  UOUTLN 

MOVE  INITIAL  DISPLACEMENT  COORDINATES,  SPECIFY  THAT  SOFTWARE 
CHARACTERS  ARE  DESIRED,  LINE  CHARACTER  SIZE,  AND  SET  DASH  SPEC. 

CALL  UMOVE  (XO.YO) 

CALL  USET  ( SOFTWARE  ) 

CALL  UPSET  ( HORIZONTAL',  6.) 

CALL  UPSET  ('VERTICAL', 3.) 

CALL  UPSET  ( SETDASH',92.) 

DEFINE  LOOP  TO  CALCULATE  HORIZONTAL  AND  VERTICAL 
DISPLACEMENTS. 

OOI  T-1,11 
X-(.707*VO*T)  + XO 
Y — T*(. 707*  VO-(16. *T))  + YO 

SPECIFY  THE  SECONDARY  AXIS  AT  COMPUTED  DISPLACEMENT 
COORDINATES  THEN  DRAW  THE  FLIGHT  PATH  OF  THE  PROJECTILE  TO  THIS 
ORIGIN. 

CALL  UCOSYS  (X,Y,1  .,1  ..THETA) 

CALL  UPEN1  (0.,0.,'DASH') 

SETUP  A NEW  WINDOW  FOR  DRAWING  THE  PROJECTILE  ITSELF  WITHIN  THE 
ROTATED  COORDINATE  SYSTEM  WE  HAVE  JUST  DEFINED.  A DISTORTED  D' 
REPRESENTS  THE  PROJECTILE. 

CALL  UWINDO  (0..1 00.,0.,1 00.) 

CALL  UWHERE  (X.Y) 

CALL  UPEN1  (X.Y.'DD) 

REDEFINE  DISPLACEMENT  WINDOW.  UPDATE  TIME  AND  ROTATIONAL 
ANGLE. 

CALL  UWINDO  (-225..225..-1 5., 95.) 

T-T  + 0.4758 
THETA -THETA + 57. 

1 CONTINUE 
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WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THIS  FORTRAM  PROGRAM. 


CALL  UEND 

STOP 

END 
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DATA  T,  THETA.  Va.X8.Y8/8..  76.,  187..' 
CALL  USTART 

CALL  (MET  C'W0RKJN8AXI8O 

CALL  UVZNDO  C -226. .226. .-16. ,06.3 

CALL  IIOUTLN 

CALL  UMOVE  OC8.Y83 

CALL  U8ET  {'SOFTWARE'? 

CALL  UPSET  C' HORIZONTAL '.0.3 
CALL  UPSET  {'VERTICAL'. 3.? 

CALL  UPSET  C ' SETDASH ',82.3 

00  I I - \,  u 

X - C . 787**V8«*T3  ♦ X8 

Y - T *»  C .787  » V8  - Cie.»T>3  ♦ Y8 

CALL  UOOSYa  CX, Y, 1 . , I . , THETA? 

CALL  UPENI  {a..a..'PASH'> 

CALL  UUCNDO  C8..  188. .8..  188.3 

CALL  INHERE  CX,Y3 

CALL  UPENI  CX.Y.'DO'J 

CALL  UWZNOO  C-226 . , 226 . , - 1 6 . , 86 . 3 

T - T ♦ a. 4768 

THETA  - THETA  ♦ 67. 

I CONTINUE 
CALL  UEND 


ooo  ono  oooo  onnoo  noon  ooooo  ooo 


c sample  program  used  to  illustrate  application  of  gcs 

c subroutine  ucosys  to  define  a dynamic  secondary  axis  system 

C THE  EXAMPLE  CALCULATES  THE  HORIZONTAL  AND  VERTICAL 
C COMPONENTS  OF  VELOCITY  & DISPLACEMENT  FOR  A PROJECTILE 
C 

C DEFINE  TIME.  INITIAL  VELOCITY,  ft  INITIAL  DISPLACEMENT  LOCATION 
C 

DATA  T.VO.XO.YO/0 ,107  .-190 .0  / 

ENTER  GCS.  DEFINE  DISPLACEMENT  WINDOW,  AND  OUTLINE  THIS  WINDOW 
CALL  USTART 

CALL  UWINDO  (-225.225  .-1 5 .95 ) 

CALL  UOUTLN 

CALCULATE  HORIZONTAL  VELOCITY  COMPONENT.  VELOCITY  SCALE 
FACTOR.  MOVE  TO  INITIAL  DISPLACEMENT  COORDINATES.  AND  SET  DASH 
SPECS 

VS-  707*VO 
ZETA-11  *VX 
CALL  UMOVE  (XO.YO) 

CALL  UPSET  ( SETDASH  .92.) 

DEFINE  LOOP  TO  CALCULATE  DISPLACEMENTS.  AND  VERTICAL  VELOCITY 
COMPONENT 

DO  1 1-1,11 
X-(FX‘TKXO 
VY-2.MVX-32.*T) 

Y — T*(VX-(16*T))  + YO 

SPECIFY  THE  SECONDARY  AXIS  AT  COMPUTED  DISPLACEMENT 
COORDINATES  THEN  DRAW  THE  FLIGHT  PATH  OF  THE  PROJECTILE  TO  THIS 
ORIGIN. 

CALL  UCOSYS  (X.Y.I  .I  .O  ) 

CALL  UPEN1  (0  ,Q  ,'OASH’I 

DEFINE  A NEW  WINDOW  FOR  THE  VELOCITY  AND  PLOT  THE  HORIZONTAL  ft 
VERTICAL  COMPONENTS  OF  THE  PROJECTILE  S VELOCITY 

CALL  UWINDO  (0  ZETA.-ZETA.ZETA) 

CALL  USET  ( RELATIVE  ) 

CALLUPEN1  (VX.O.LARROW) 

CALL  UMOVE  (-VX.0) 

CALLUPEN1  (O..VY.LARROW) 

CALL  UMOVE  (0..-VY) 

REDEFINE  DISPLACEMENT  WINDOW.  UPDATE  TIME.  AND  CONTINUE  A LOOP 

CALL USET (ABSOLUTE) 

CALL  UWINDO  (-225  . 225  . -15  . 95  ) 

T — T + 4758 
1 CONTINUE 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THIS  FORTRAN  PROGRAM 

CALLUEND 
STOP 
END 
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DATA  Y8/8 . , IA7. 

CALL  ufcTART 

CALL  UCCT  C'UORKXNQAXXSO 

CALL  UUZMPO  C-2*6.,22S.,-I6.,a6.> 

CALL  UOUTLN 

VX  - .7*7  » Va 

zrrA  - It.  m VX 

CALL  WOVE  <xa,va> 

CALL  UPEFT  C'SCTDASH' > 

DO  1 I - I.  || 

X - <VX*T>  ♦ xa 

VY  • t.  • CVX  - C9S.»T» 

Y - T » CVX  - Cie.»T»  ♦ V» 

CALL  UGQSYS  CX#Y#  I I 
CALL  UPCMt  M..I..W? 

CALL  WZMSO  CE..ZrrA#-2FrA#ZFrA> 
CALL  UKT  C 'RELATIVE/ J 
CALL  UPEHI  CVX, • . . 'LARR0WO 
CALL  UMOVe  c-vx,a.> 

CALL  UPCMt  Ca.,VY,'LARR0W'> 

CALL  UMOVe  ca.,-vv> 

CALL  user  C' ABSOLUTE  O 

CALL  IAUMPO  c-«g..g»..-!S.<aa.> 

T m T ♦ .47Sa 
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ooo  ooo  oooo  ooooo  ooo  ooon  ooo 


C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  GCS 
C SUBROUTINE  UCOSYS  TO  DEFINE  A DYNAMIC  SECONDARY  AXIS  SYSTEM. 

C THE  EXAMPLE  DISPLAYS  THE  TANGENT  AND  NORMAL  COMPONENTS  OF 
C TRAJECTORY  AND  DISPLACEMENT  FOR  A PROJECTILE. 

C 

C DEFINE  TIME  INITIAL  VELOCITY  AND  INITIAL  DISPLACEMENT  LOCATION 

C 

DATA  T,VO,XO,YO/O.,1 07., -1 90., 0./ 


ENTER  GCS  DEFINE  DISPLACEMENT  WINDOW,  AND  OUTLINE  THIS  WINDOW. 
CALL  USTART 

CALL  UWINDO  (-225., 225., -225., 225.) 

CALL  UOUTLN 

CALCULATE  TANGENT  VELOCITY  COMPONENT  MOVE  TO  INITIAL 
DISPLACEMENT  COORDINATES,  AND  SET  DASH  SPECS. 

VX-.707*VO 
CALL  UMOVE  (XO.YO) 

CALL  UPSET  ( SETDASH',92.) 

CALL  USET  ( RADIANS') 

DEFINE  LOOP  TO  CALCULATE  DISPLACEMENTS 

DO  1 1-1,11 
X — (VX*T)  + XO 
Y-T*(VX-16.*T))  + YO 
DYDX  - 1 -(32*(X-XO)/VX**2) 

SPECIFY  THE  SECONDARY  AXIS  AT  COMPUTED  DISPLACEMENT 
COORDINATES  AND  ROTATED  TO  THE  SLOPE  OF  THE  TANGENT.  THEN  DRAW 
THE  FLIGHT  PATH  OF  THE  PROJECTILE  TO  THIS  ORIGIN. 

CALL  UCOSYS  (X,Y,1  „1  ..ATAN(DYDX)) 

CALL  UPEN1  (0.,0.,'DASH) 

DEFINE  A NEW  WINDOW  AND  PLOT  THE  TANGENT  & NORMAL  COMPONENTS 
OF  THE  PROJECTILE'S  TRAJECTORY 


CALL  UWINDO  (0  .1  .,-1  .,0.) 

CALL  USET  ('RELATIVE') 

CALL  UPEN1  (.05,0.,'LARROW) 

CALL  UMOVE  (-.05,0.) 

CALL  UPEN1  (0.-.05.LARROW) 

CALL  UMOVE  (0...05) 

REDEFINE  DISPLACEMENT  WINDOW,  UPDATE  TIME,  AND  CONTINUE  A LOOP 

CALL  USET  (’ABSOLUTE  ) 

CALL  UWINDO  (-225., 225  ,-225., 225.) 

T- 1+4/58 
1 CONTINUE 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THIS  FORTRAN  PROGRAM 

CALL  UEND 

STOP 

END 

EXAMPLE  IX-6 
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DATA  TtV»,»,Ya/a.#t®7.,-l«.<,»./ 
CALL  U8TART 

CALL  USET  C'UORICEHSAXXSO 


CALL  uunoo 
CALL  UOUTLH 
vx  • .7*7  • V» 

CALL  UH0VE  CXS.Va) 

CALL  UPSET  C'8ETPASH',a2.) 

CALL  USET  C'RADXANS') 

DO  I I * I,  II 

x - cvx»t>  ♦ xa 
Y - T » cvx  - Ct«.»T»  ♦ YS 
DYDX  « I - CSC  • CX-XS)  / VXmE) 
CALL  tICOSYS  CX«Y,  I 1 . # ATANCDYPX)) 
call  upehi  <*.,8., 'DASH') 

CALL  UUZMDO  CS.,  I .,-1  .,a.) 

CALL  USET  ('RELATIVE') 

CALL  UPQ4I  C.a6,S.,'LARftOW') 

CALL  UNOVK  C-.afc.a.) 

CALL  UPQ41  (•.,-. S6, 

CALL  UH0VE  Ca.,.SE) 

CALL  USET  ('ABSOLUTE') 

CALL  UU2MPO  C 
T - T ♦ ,47SS 


.) 


.) 


CALL  UQO 
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THREE  DIMENSIONAL  GRAPHICS 

The  three  dimensional  version  of  GCS  gives  to  the  user  the  ability  to  describing  his 
environment  in  three  dimensions  Each  of  the  primary  two  dimensional  GCS  routines 
have  a three  dimensional  counterpart:  U3PEN,  U3MOVE,  U3DRAW,  U3PRNT,  U3WRIT, 
U3CSYS,  and  U3WHER.  The  coordinates  used  by  each  of  these  routines  may  be 
specified  as  (X,Y,Z)  rectangular  coordinates,  (R.O.Z)  cylindrical  coordinates,  or  (R.O.t) 
spherical  coordinates.  Use  of  the  3-0  routines  does  not  preclude  use  of  the  2-D 
routines;  the  2-D  routines  are  defined  so  as  to  draw  parallel  to  the  current  X-Y  plane  on  a 
plane  specified  by  a default  Z coordinate,  contained  in  the  Graphics  Status  Area  (GSA). 
This  Z value  may  be  set  by  the  user  with  an  UPSET  ('ZVALUE',  value)  call.  The  default 
ZVALUE  is  zero.  By  using  both  2-D  and  3-D  routines  an  image  may  be  described  in  3- 
space. 

In  order  to  specify  the  appearance  of  the  object  being  drawn,  the  location  of  the  viewer 
and  the  direction  in  which  he  is  looking  must  be  specified.  By  calling  UVIEW 
(XVIEW,YVIEW.ZVIEW,XSITE,YSITE,ZSITE),  the  user  can  specify  where  the  view  point  is 
located  and  at  -.vhat  point  in  the  evironment  he  is  looking  (view  site).  The  environment 
will  then  be  displayed  from  this  viewpoint  with  the  view  site  located  on  a line  which 
passes  through  the  center  of  the  viewport.  The  viewport  indicates  the  boundaries  of  the 
user's  field  of  view  and  also  how  far  the  viewport  is  from  the  view  point  or  the  viewsite. 
The  X-coordinates  of  the  viewport  will  range  in  the  interval  (-A/2.A/2)  and  the  Y- 
coordinates  in  the  interval  (-B/2.B/2).  Default  values  for  UVIEW  are  (0..0..1 50.,0.,0.,0.) 
and  for  UVWPRT  are  (200  .200  ,0  ).  GCS  will  also  automatically  clip  points  outside  of  the 
viewing  pyramid  (behind  the  view  point  or  outside  the  viewport).  The  user  can  select 
whether  the  resulting  image  will  be  mapped  to  the  screen  with  a PERSPECTIVE  (default) 
or  ORTHOGONAL  projection. 

The  u?er  may  specify  which  portion  of  this  viewport  will  be  displayed  on  the  screen  by 
setting  his  UWINDO.  The  UWINDO  boundaries  may  or  may  not  overlap  the  viewport.  If  no 
portion  of  the  UWINDO  corresponds  to  the  viewport,  the  viewport  will  be  expanded  to 
encompass  the  UWINDO  if  the  UWINDO  changes.  If  the  viewport  is  specified  smaller 
than  the  UWINDO.  the  UWINDO  will  contract  to  encompass  the  viewport. 

As  in  2-D  GCS,  the  user  may  construct  arbitrary  user  coordinate  systems  using  the  calls 
U3CSYS,  U3SCAL,  and  U3ROTA.  These  work  similar  to  he  2-D  case  with  one  exception. 
Since  3-D  rotations  are  not  commutative,  the  order  of  rotation  must  be  specified  with  a 
suitable  USET  call:  XYZ',  'XZY',  YXZ',  ZXY,'  or  ZYX'.  The  default  sequence  is  'ZYX'. 

A call  to  the  2-D  routine  UCOSYS  will  cause  a rotation  about  the  Z axis.  Any  rotation 
around  other  than  the  system  Z axis  will  cause  the  XY  plane  to  cease  being  parallel  to 
the  screen  and  will  effect  the  output  of  symbols  and  curves  (see  below). 

Curve  generation  using  the  UARC,  UCRCLE,  UCONIC,  UPLYGN,  and  URECT  routines 
function  as  they  did  before  However,  since  they  are  2-D  routines,  their  output  will  be 
created  in  the  XY  plane  specified  by  the  current  ZVALUE  parameter  as  indicated  above. 
In  addition,  software  characters  generated  by  U3PRNT,  U3WRIT,  and  UAOUT  will  also 
appear  in  the  XY  plane  Hardware  characters  still  appear  on  the  plane  of  the  display 
surface.  Line  terminators  (arrowheads  and  software  characters)  and  tic  marks  appear 
on  a plane  specified  by  the  two  end  points  of  the  line  and  a third  point  which  the  user  can 
specify  via  the  UPOINT(X,Y.Z)  subroutine.  The  default  UPOINT  is  a point  on  the  default 
XY-plane  outside  the  default  UWINDO  boundaries.  This  point  is  (-.6931471806, 
-1  096122887,  0.) 

Textual  output  for  three  dimensions  has  been  expanded  slightly  to  allow  another  text 
output  mode.  This  mode  is  'XYZCOORDINATES'  which  will  print  the  three  components 
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of  a set  of  3-D  coordinates.  'XYCOORDINATES'  are  still  available  for  2-D  coordinates. 
All  other  text  functions  of  2-D  GCS  are  processed  as  before.  Since  the  text  created  by 
U3PRNT  and  U3WRIT  is  displayed  in  the  current  user  X-Y  plane,  specified  by  the  Z- 
coordinate  of  the  specified  location,  suitable  choices  of  UVIEW  will  result  in  text  which 
when  displayed  will  be  backwards.  This  is  a result  of  viewing  the  text  from  behind  it. 

Drawing  3-0  images  is  primarily  intended  for  use  in  VIRTUAL  space.  However,  a user 
who  wishes  to  do  so  can  directly  address  the  face  of  the  display  surface  in  DEVICE 
space.  If  this  is  done,  no  clipping  against  viewport  boundaries  takes  place.  The 
requested  graphical  data  is  displayed  projected  orthogonally  onto  the  device  screen. 
For  most  devices,  the  Z-value  will  be  ignored  and  the  X.Y  components  will  be  used  as 
screen  addresses  after  conversion  to  device  units. 

To  facilitate  displaying  different  sections  of  the  viewport,  an  additional  window  and 
display  area  routine  has  been  implemented.  ULOOK  lets  the  user  specify  a portion  of  the 
display  surface  (UDAREA)  in  device  units.  The  window  (UWINDO)  dimensions  are  then 
adjusted  to  move  the  UWINDO  to  display  the  equivalent  portion  of  virtual  space 
(viewport).  The  effect  is  that  of  moving  a template  around  on  the  viewport. 
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C THIS  PROGRAM  DEMONSTRATES  THE  USE  OF  SEVERAL  3-D  SUBROUTINES 
C AND  THE  DIFFERENCE  BETWEEN  ORTHOGONAL  AND  PERSEPCTIVE 

C PLOTTING. 

C 

CALL  USTART 
CALL  UPSET  ( SETD  .1  ) 

CALL  UPSET  ('TERMINATOR', 

CALL  USET  ( PERC'I 

CALL  UDAREA  (0.1  00„0.,1  00.) 

CALL  AXIS 
CALL  USET  ('ORTH') 

CALL  BOX 
CALL  USET  ('PERC') 

CALL  UDAREA  (0.1  00.,0.,1  00.) 

CALL  UWINDO  (-1  00., 1 00  ,-1 00., 1 00.) 

CALL  USET  ('PERSPECTIVE') 

CALL  BOX 
CALLUEND 
STOP 
END 

SUBROUTINE  AXIS 
CALL  UOUTLN 
CALL  USET  ('DASH') 

CALL  U3MOVE  (-20., -20., -20.) 

CALL  U3PEN  (50., -20., -20.) 

CALL  UPRNT 1 ('X;','TEXT') 

CALL  U3MOVE  (-20., -20., -20.) 

CALL  U3PEN  (-20., 50., -20.) 

CALL  UPRNT  1 ('Y;', 'TEXT') 

CALL  U3MOVE  (-20., -20., -20.) 

CALL  U3PEN  (-20.,-20.,1  00.) 

CALL  UPRNT  1 ( Z;','TEXT') 

CALL  USET  ('LINE') 

CALL  U3CSYS  (25., 25., 25., 1 .,1  .,1  „1 0..1 0..0.) 

CALL  UVIEW  (-20.  20., -1  50  .0..0..0.) 

RETURN 

END 

SUBROUTINE  BOX 
CALL  U3MOVE  (0..0..0.) 

CALL  U3PEN  (10., 0 ,0.) 

CALL  U3PEN  (10  ,1  0 ,0.) 

CALL  U3PEN  (0.,1  0.,0.) 

CALL  U3PEN  0..0..0.) 

CALL  U3MOVE0  0 ,0., 0.) 

CALL  U3PEN  (10  ,0  ,60.) 

CALL  U3PEN  (1 0..1  0..60.) 

CALL  U3PEN  (1 0,1 0 ,0  ) 

CALL  U3MOVE  (0..10..0.) 

CALL  U3PEN  (0,10  ,60.) 

CALL  U3PEN(  10  ,1  0 ,60.) 

CALL  U3MOVE  (0  ,0  ,0.) 

CALL  U3PEN  (0..0  ,60.) 

CALL  U3PEN  (0  ,10  ,60.) 

CALL  U3PEN(0„  10  ,0.) 

CALL  U3MOVE  (0  ,0.,60.) 

CALL  U3PEN  (10  ,0  ,60.) 

RETURN 

END 

EXAMPlE  IX-1 
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CALL  USTART 


CALL  UPSET  C'TERMINATOR', O 


CALL 

CALL 

CALL 


UPSET  C'8PEED'  1*0.5 
USET  C'PERCENTUNITSO 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

STOP 

END 


up area  ce.,iec..e., jes.j 
uvzndo  c-iee., 180.,-tee., iee.:> 

UERASE 

AXES 

USET  C'ORTHOQQNALO 
BOX 

udarea  c0.ties.,e.,  iss.> 

UWZNDO  C-IBS., 1SB.,-180., IBB. 3 
USET  C * PERSPECTIVE' ? 

BOX 

UEND 
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SUBROUTINE  AXIS 

r»Ai  i LflUTLN 

CALL  USET  <'PASHO 

CALL  USNOVE  (-28.,  22., -22.) 

CALL  USPEN  CSS., -20 .,-20. 5 
CALL  UPRNTl  C'X*', 'TEXT'? 

CALL  USNOVE  C-28.,-28.,-28.  > 

CALL  USPEN  (-28., KB. ,-20.: 

CALL  UPRNTl  <'Yi','TEXTO 
CALL  USNOVE  <-20.,-2S.,-20.; 

CALL  USPEN  C-28.,-20., 182.) 

CALL  UPRNTl  C'Zj'  'TEXT'? 
r*A|  | USJTT  CELINE'S 

CALL  U3CSYS  (26.,2S.,26.,l I ., 1 ., 18.,  18., 0.5 
CALL  UVIEU  C-20.,-28.,-JS8.,8.,8.,0.> 

RETURN 

ENP 


SUBROUTINE  BOX 
CALL  USNOVE  C0.,0.,0.> 
CALL  USPEN  <10. ,0. ,8.? 
CALL  UBPEN  <10., 10. ,0.5 
CALL  UBPEN  <0., »0.,0.5 
CALL  UBPEN 

CALL  USNOVE  Cl 0.,0.<0.» 
CALL  USPEN  <10. ,0. ,08.5 
CALL  UBPEN  <10., 18. ,60. 5 
CALL  UBPEN  <10., 10. ,0.5 
CALL  USNOVE  C0.,10.,0.5 
CALL  USPEN  <0., 10, ,00.? 
CALL  UBPEN  <10., 10. .00.? 
CALL  USNOVE  C0..0.,0.> 
CALL  USPEN  <0.,t.,00.5 
CALL  USPEN  <8., 10. ,88. 5 
CALL  USPEN  <0., 10. ,0.3 
CALL  USNOVE  <0.,0.,0S.5 
CALL  USPEN  <10. ,0., 08. 5 
RETURN 
ENP 
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THIS  PROGRAM  DEMONSTRATES  THE  USE  OF  SEVERAL  3-D  SUBROUTINES 
TO  PRODUCE  A VILLAGE  ON  A TEKTRONIX  401 4/401  5 TERMINAL. 


CALL  USTART 
CALL  USET  ('VIEW') 

CALL  UVWPRT  (1  50.) 

CALL  UPSET  ('TERM',  '<') 

CALL  UWINDO  (-1 00., 1 00  ,-1 00., 1 00.) 

CALL  UDAREA  (0.,7.,0.,7.) 

CALL  UVIEW  (-40., 200., 700., -20., 20., 0.) 
CALLVILLAG 

CALL  UDAREA  (7.1 ,1 4.1 ,0  .7.) 

CALL  UVIEW  (-70  ,-1  50.,50.,0.,0.,1 0.) 

CALLVILLAG 

CALL  UEND 

STOP 

END 

SUBROUTINE  VILLAG 
CALL  USET  CXYZ') 

CALL  USET  ('SYST') 

CALL  USET  ('REFE') 

CALL  U3CSYS  (-50,20,0,1  „1  .,1  .,90.,0.,0.) 
CALL  USET  ('BLACK') 

CALL  CHURCH 
CALL USET (SYST) 

CALL  U3CSYS  (24..-1 9 ,0  ,1  ..1  .,1  „80.,-90.,0.) 
CALL  USET  ('RED') 

CALL  SCHOOL 
CALL  USET  ('SYST') 

CALL  U3CSYS  (70..70.,0„ 0.7. 0.7, 0 7,0  ,0  ,0.) 
CALL  USET  ('BLUE') 

CALL  PIZZA 
CALL  USET  CSYST’) 

CALL  U3CSYS  (0.,0.,0.,1  ..1  ..1  „0.,0.,0.) 

CALL  USET  ('BLACK') 

CALL  ROAD 
CALL  USET  ('SYST') 

RETURN 

END 

SUBROUTINE  SCHOOL 
CALL  USET  ('SOFT') 

CALL  USET  CREFE’) 

CALL  U3MOVE  (0..0..0.) 

CALL  URECT  (50., 25.) 

CALL  U3MOVE  3..4..0.) 

CALL  URECT  (7  .8.) 

CALL  U3MOVE  (1 3.,4.,0.) 

CALL  URECT  (17  ,8.) 

CALL  U3MOVE  (47., 4 ,0.) 

CALL  URECT  (43., 8.) 

CALL  U3MOVE  (37., 4 ,0.) 

CALL  URECT  (33., 8.) 

CALL  U3MOVE  (25.,0.,0.) 

CALL  URECT  (22., 8.) 

CALL  URECT  (28., 8.) 

DO  101-3,43,10 
X — I 

CALL  U3MOVE  (X,15.,0.) 
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10  CALL  URECT  (X  + 4..20.) 

CALL  USET  ('WORK') 

CALL  U3CSYS  (50.,0.,0.,1  .1  .1  .,0.,90.,0.) 

ISW-1 

15  CALL  U3MOVE  (0,0.0.) 

CALL  URECT  (90., 25.) 

DO  201-3,83.10 
X — I 

CALL  U3MOVE  (X.1 6 ,0.) 

CALL  URECT  (X + 4..20.) 

IF(I.EQ.43)  GOTO  20) 

CALL  U3MOVE  (X.4.,0.) 

CALL  URECT  (X  + 4.,8.) 

20  CONTINUE 

CALL  U3MOVE  (45..0..0.) 

CALL  URECT  (42., 8.) 

CALL  URECT  (48., 8.) 

IF ISW.EQ.2)  GOTO 30 
ISW-2 

CALL  U3CSYS  (0..0..-90/.1  ,1  ..1 ., 0 .-90., 0.) 

GO  TO  1 5 

30  CALL  UPSET  ('VERT', 3.) 

CALL  UPSET  ('HORI',3.) 

CALL  UPRINT  (0..21  .,5.  ROOSEVELT  ELEMENTARY  SCHOOLS) 
CALL  USET  ('REFE') 

CALL  UPSET  ('ZVAL',-90.) 

CALL  U3MOVE  (0..0..-90.) 

CALL  URECT  (50., 25.) 

DO  401-3,43,10 
X — I 

CALL  U3MOVE  (X-4..-80.) 

CALL  URECT  (X  + 4.,8.) 

CALL  U3MOVE  (X.16.,-90.) 

40  CALL  URECT  (X  + 4., 20.) 

CALL  UPSET  CZVAL',0.) 

RETURN 

END 

SUBROUTINE  CHURCH 
CALL  USET  ( REFE  ) 

CALL  U3MOVE  (0..0..0.) 

CALL  URECT  (30., 40.) 

CALL  U3MOVE  (15  ,0  ,0.) 

CALL  URECT  (10., 10.) 

CALL  URECT  (20  . 10.) 

CALL  U3MOVE  (1 4.,3.,0.) 

CALL  URECT  (14.25,6.) 

CALL  U3MOVE  (1 5., 75,3., 0.) 

CALL  URECT  (16  ,6) 

CALL  U3MOVE  (0  ,40  ,0.) 

CALL  U3PNE  (30..40..0.) 

CALL  USET  ( WORK  ) 

CALL  U3CSYS  (30  ,0  ,0  ,1  ,1  .1  ..0..90..0.) 

ISW-1 

1 0 CALL  U3MOVE  (0..0..0.) 

CALL  URECT  (80,40  ) 

DO  201-20,40.10 
X — I 

CALL  U3MOVE  (X.1 0 ,0.) 


4 

CALL  U3PEN  (X,25.,0.) 

CALL  U3PEN(X  + 4..30..0.) 

CALL  U3PEN  (X + 8..25..0.) 

CALL  U3PEN  (X  + 8.,1 0..0.) 

20  CALL  U3PEN  (X,1 0.,0.) 

IF  (ISW.EQ.2)  GO  TO  30 
ISW-2 

CALL  U3CSYS  (0.,0.,0.,1  .,1  ..1  „0.,90.,0.) 
GOTO  10 

30  CALL  USET  ( REFE  ) 

CALL  U3MOVE  (0.40,-80.) 

CALL  U3PEN  (15  ,47.5,-80.) 

CALL  U3PEN  (30..40..-30.) 

CALL  U3M0VE  (0., 0 ,-80.) 

CALL  E3PEN  (30..0..-80.) 

CALL  U3M0VE  (1 5,47.5,-80.) 

CALL  U3PEN  (1 5., 47.5,0.) 

CALL  U3MOVE  (10  ,45  ,0.) 

CALL  U3PEN  (1 0..45..-1 0.) 

CALL  U3PEN  (1 5., 47., 5,-1 0.) 

CALL  U3PEN  (20. ,45. ,-10.) 

CALL  U3PEN  (20  ,45  ,0.) 

CALL  U3PEN  (1 5.,1 00., -5.) 

CALL  U3PEN  (10..45..0.) 

CALL  U3M0VE  (1 0..45..-1 0.) 

CALL  U3PEN  (1 5.,1 00..-5.) 

CALL  U3PEN  (20. ,45. ,-10.) 

CALL  U3M0VE  (1 5 ,1 00., -5.) 

CALL  U3PEN  (15..1 10..-5.) 

CALL  U3M0VE  (13., 107., -5.) 

CALL  U3PEN  (17., 107  ,-5.) 

RETURN 

END 

SUBROUTINE  ROAD 
CALL  U3MOVE  (-200., 9., 0.) 

CALL  U3PEN  (-9..9..0.) 

CALL  U3PEN  (-9  ,200  ,0.) 

CALL  U3M0VE  (200., 9., 0.) 

CALL  U3PEN  (9..9..0.) 

CALL  U3PEN  (9  ,200  ,0.) 

CALL  U3M0VE  (-200., -9., 0.) 

CALL  U3PEN  (-9..-9..0.) 

CALL  U3PEN  (-9  ,-200  ,0.) 

CALL  UMOVE  (9..-200..0.) 

CALL  U3PEN  (9..-9..0.) 

CALL  U3PEN  (200., -9., 0.) 

RETURN 

END 

SUBROUTINE  PIZZA 
CALL  USET  ('SOFT') 

CALL  USET  ('REFE') 

CALL  U3MOVE  (0..0..0.) 

CALL  U3CSYS  (0.,0.,0.,1  .,1  .,1  .,90.,0.,0.) 
CALL  U3PEN  (40., 0 ,0.) 

CALL  U3PEN  (20..50..0.) 

CALL  U3PEN  (0..0..0.) 

CALL  U3MOVE  (20.,0.,0.) 

CALL  URECT(  17.5,8.) 
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CALL  URECT  (22.5,8 ) 

CALL  U3M0VE  ( 1 0..2..0.) 

CALL  URECT  (15  ,8.) 

CALL  U3M0VE  (30.2  ,0.) 

CALL  URECT  (25  ,8.) 

CALL  U3MOVE  (1 3..1 0.,0.) 

CALL  URECT  (27  ,15.) 

CALL  UPSET  ('HORI’,2.) 

CALL  UPSET  ('VERT',  4.) 

CALL  USET  (TTAL  ) 

CALL  UPRINT  (1 5.65,1 1 2,'PIZZA<’) 

CALL  USET  ('GOTH') 

CALL  UPSET  ('VERT',  4) 

CALL  UPSET  ('HORI', .3) 

CALL  UPRINT  (20.95,5.,  INC') 

CALL  USET  ( WORK  ) 

CALL  U3CSYS  (40.,0.,0.,1  ..1  .,1  „0.,-1 80., 0.) 

CALL  UPRINT  (20.65,5..  OUT<') 

CALL  USET  ('REFE') 

CALL  U3MOVE  (0..0..-60.) 

CALL  U3PEN  (40., 0 ,-60.) 

CALL  U3PEN  (20., 50  .-60.) 

CALL  U3PEN  (0., 0 ,-60.) 

CALL  U3M0VE  (1 8.5, 0 ,-60.) 

CALL  UPSET  ('ZVAL',  -60.) 

CALL  URECT  (21.5,8.) 

CALL  UPSET  ('ZVAL', 0.) 

CALL  USET  ( REFE ) 

CALL  U3M0VE  (0  ,0  ,0.) 

CALL  U3PEN  (0  ,0  ,-60 ) 

CALL  U3M0VE  (40., 0 ,-60.) 

CALL  U3PEN  (40  ,0  ,0) 

CALL  U3M0VE  (20  ,50  ,0.) 

CALL  U3PEN  (20., 50  ,-60  ) 

CALL  USET  ('WORK') 

CALL  USET  ('YXZ') 

CALL  U3CSYS  (0  ,0.,0.,1  .1  „1  .,-ATAN2(50.,20.)*57.29577  + 90.,90.,0.) 
CALL  USET('XYZ') 

CALL  UPSET  ('HORI', 2.) 

CALL  UPSET  ( VERT  , 2.5) 

CALL  UPRINT  (5., 5.,  GIANT  PIZZA  $8< ') 

CALL  USET  ('REFE') 

RETURN 

END 


EXAMPLE  IX-2 


CALL  UTTAHT 
CAU-  USCT  C' 

call  uwnrr  ci 

— <;T 


CALL  UPMT  C'TBWINATOR'.'jO 
CALL  UWXN0O  1M.> 

CALL  UOARBA  (•.»> 

call  uvzew  c~«., cm. ,7t.,~ca. 

CALL  VTLLAt 
CALL  UEND 
•TOP 
END 
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SUBROUTINE  VILLAS 
CALL  USET  C'XYZ  o 
CALL  USET  <'8YSTEMAXIS') 

CALL  USET  <'REPERENCEAXIS') 

CALL  U9CSTS  <-68. ,88. .8..  1 .,  I .,  J .,88. .8. ,8. ) 
CALL  USET  C' BLACK') 

CALL  CHURCH 

CALL  USET  <'SYSTEMAXI8') 

CALL  U9CSYS  <24.,-l8.,8., I ., 1 ., 1 .,88.,-88..8.) 
CALL  USET  ('RED  ') 

f*^i  i gCHflfl) 

ffAi  i USET  c'SYSTEMAXIS') 

CALL  U3CSYS  <78. ,78. ,8., 8.7,8. 7,8. 7,8. ,8., 8. J 
CALL  USET  C'BLUE') 
r»A‘  1 PIZZA 

CALL  user  <'SYSTEMAXIS') 

CALL  U3CSYS  <8.,8.,8.,1.,1.,1.,9.,8.,8.) 

CALL  USET  <'BLACK') 

f*Ai  i koap 

CALL  USET  < 'SYSTEMATISE) 

RETURN 

ENP 


SUBROUTINE  SCHOOL 
CALL  USET  C'SOPTO 
CALL  USET  <'REPERENCEAXIS') 
CALL  USHOVE  <8. ,8., 8.) 

CALL  URECT  <68., 26.) 

CALL  USHOVE  <3. ,4., 8.) 

CALL  URECT  <7. ,8.) 

CALL  USHOVE  CIS., 4. ,8.) 

CALL  URECT  <17. ,8.) 

CALL  USHOVE  <47. *4. ,8.) 

CALL  URECT  <48. ,8.) 

CALL  USHOVE  <S7.,4.,8.) 

CALL  URECT  CSS.. 8.) 

CALL  USHOVE  <26. .8. ,8.) 

CALL  URECT  <88.. 8.) 

CALL  URECT  <88. .8.) 

00  IS  I - 8.  48.  18 
X - I 

CALL  USHOVE  <X.  16..8.) 

18  CALL  URECT  <X*4.,RB.) 

CALL  USET  C'WORKINtAXIS') 
CALL  USCSYS  <68 ..8..8..1..1 
XSU  » 1 

16  CALL  USHOVE  <8. .8.. 8.) 

CALL  URECT  <88. .86.) 

00  88  I - S.  88.  IS 

CALL  USHOVE  CX.IB..S.) 

CALL  URECT  <X*4..S8.) 
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1..8..88..8.) 


W 


r 


IF  (J  .CO.  43)  90  TO  88 
CAU.  USNOVE  (X,4.,0.) 

CALL  URECT  OU-4.,6.) 
tO  CONTINUE 

CALL  USNOVE  (4S.,0.,S.) 

CALL  URECT  <4«.,«.) 

CALL  URECT  (4S.,«.) 

IF  CIS*  .EQ.  2)  CO  TO  30 

ZS*  rn  2 

CALL  U9C8YS  (0.,0.,-00.,  I ..  \ .,  I .,0.,-00.,0.) 
20  TO  IS 

20  CALL  UPSET  ('VERTICAL', 3.) 

CALL  UPSET  C'HORZXQNTAL',3.) 

CALL  UPRZNT  CS.,«1 .6, ' ROOSEVELT  ELEMENTARY 
CALL  USET  C'REFbttNCfcAXIS') 

CALL  UPSET  C'ZVALUE'  -60.) 

CALL  U9N0VE  C0.,0.,-00.) 

CALL  URECT  (60. ,26.) 

OO  40  I - 0,  40,  10 
X - I 

CALL  USNOVE  CX,4.,-®0.) 

CALL  URECT  CX-M..S.5 
CALL  U0N0VE  (X. IS., -00. 3 
40  CALL  URECT  (X+4.,20.) 

CALL  UPSET  C'ZVALUE', 2.) 

RETURN 

END 


I 

L 


SUBROUTINE  CHURCH 
CALL  USET  ('REFER! 

CALL  USNOVE  C0.,0.,0.) 

CALL  URECT  (30. ,40.3 
CALL  USNOVE  ClS.,0.f0.) 

CALL  URECT  (IS.,  10.) 

CALL  URECT  (20.,  10.) 

CALL  USNOVE  (|4.,S.,9.) 

CALL  URECT  (14.26,6.) 

CALL  USNOVE  (IS. 76,3. ,0.) 
CALL  URECT  (16. ,0.) 

CALL  USNOVE  CS.,40.,0.) 

CALL  USFOt  (IS. ,47. 6,0.) 
CALL  U3PEN  (SS. ,40. .6.) 
f»Ai  t USET  C'UORKIMSAXZS') 
CALL  USCSYS  (S0.,0.,0., 1 ., I , 

zsu  - i 

10  CALL  USNOVE  (0.,S.,0.) 

CALL  URECT  (60., 40.) 

00  00  X - 00,  60,  10 
X - I 

CALL  USNOVE  OLlS.jS.) 

CALL  USPEN  (X.fcs.J.3 
CALL  USPEN  (X+4.,S0.,0.) 
CALL  USPEN  (X+6.,26.,0.) 
CALL  USPEN  (X*6.,I0.,S.) 

SS  CALL  USPEN  CX.lS.,0.) 

ZF  CIS*  .EQ.  ft)  60  TO  SS 
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is*  - a 

CALL  U8CST8  C8.,B.,B.,  I 1 l .,8., 88., 8.) 
BO  TO  IB 

bb  call  usrr  c'reperenceaxiso 

CALL  UBMOVE  C8.,48.,-B8.7 
CALL  UBPEN  C!6.,47.fi.-88.> 

CALL  UBPEN  (88,,  48.,  -88.) 

CALL  UBMOVE  (8. ,8., -88.) 

CALL  UBPEN  C88.,B.,-8B.) 

CALL  UBMOVE  U6.,  47.fi, -88.) 

CALL  UBPEN  (16. ,47 .6,8.) 

CALL  UBMOVE  (18. ,46. ,8.) 

CALL  UBPEN  (18. ,46., -18.) 

CALL  UBPEN  U6., 47. 6,-18.) 

CALL  UBPEN  (28. ,46., -18.) 

CALL  UBPEN  (28., 46., 8.) 

CALL  U9PEN  (16., IB8..-6.) 

CALL  UBPEN  Cl8.,46.,8.) 

CALL  UBMOVE  (18. ,46., -18.) 

CALL  UBPEN  CIS.. 188., -6.) 

CALL  UBPEN  (28. ,46. .-18. ) 

CALL  UBMOVE  (16., 188., -6.) 

CALL  UBPEN  Cl 6.,llC.,-fi.; 

CALL  UBMOVE  (13.,  187., -6.) 

CALL  UBPEN  (17., 187., -6.) 

RETURN 

END 


CAL* 

CAL*. 

CALL 

CALL 

CALL 


CALL 


CALL 

RET! 

END 


ROAD 
UBMOVE 

UBPBN  (—8. ,8. ,8. 5 
UBPEN  (-8. ,888. ,8.) 
UBMOVE  (88*. ,8. .8.) 
UBPEN  (8. .8. ,8.) 
UBPEN  C8.,88*.,8.) 
UBMOVE  (-*88., -8. ,8.) 
UBPEN  (-8., -8., 8.) 
UBPEN  (-8. ,-888. ,8.) 
UBMOVE  (8. ,-288. ,8.) 
UBPEN  C8.,-B.,8.) 

CBBB.,-8.,8.) 
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CHAPTER  X 


GRAPHICAL  DATA  STRUCTURE  PROCESSING 


A feature  which  is  confainea  within  3D  GCS  is  the  ability  to  create,  save,  and  later 
recreate  pictures  as  tt  y are  drawn  It  permits  the  user  to  specify  the  description  of  a 
commonly  used  graphic  image  once,  store  it,  and  then  invoke  this  description  whenever 
necessary.  This  facility  is  the  implementation  of  an  internal  high-level  GCS  data 
structure 

Before  the  user  can  define  or  use  a data  structure,  he  must  first  provide  a work  file  for 
GCS  to  use  This  work  file  can  be  specified  by  an  UPSET  ('LIBRARYFILE',  file  number) 
call.  The  file  will  then  be  used  to  maintain  the  user's  currently  active  library  of  GCS 
graphics  data  struc’ures 

To  build  a data  structure,  the  user  must  first  call  a routine  USTRCT  (NAME)  which 
initiates  construction  of  a data  structure  under  the  specified  name  From  then  on  all 
calls  to  the  GCS  routines  listed  in  Table  VI-1  will  be  saved  as  elements  of  the  data 
structure.  Whenever  the  specification  of  the  object  has  been  completed,  a call  is  made 
to  UTERM  (NAME)  to  terminate  the  building  process.  The  resulting  data  structure  is  then 
stored  on  the  library  file  During  the  building  process,  the  build  mode  may  be  turned  off 
by  specifying  NOBUILD’  Construction  may  be  resumed  by  then  specifying  'BUILD'. 
BUILD'  is  automatically  specified  when  USTRCT  is  called  and  NOBUILD'  is  set  when 
UTERM  is  called  Normally,  the  structure  being  built  will  be  displayed  during  the 
construction  process  If  the  user  does  not  wish  to  view  the  structure  he  may  specify 
'NOEXECUTE  If  this  is  done,  the  structure  element  will  be  saved  but  no  visible  output 
will  appear  The  user  may  return  to  viewing  his  construction  process  by  setting 
'EXECUTE'  which  is  the  default  mode 

To  invoke  an  already  created  structure,  the  user  uses  the  U3CALL  or  UCALL  routines 
specifying  (he  name,  position,  and  orientatio  of  the  data  structure.  The  data  structure 
specifieo  will  be  displayed  as  indicated  If  another  structure  is  currently  being  built 
when  this  call  takes  place,  a U3CALL  structure  element  for  the  invoked  structure  will  be 
inserted  in  the  active  structure. 

When  the  user  terminates  the  GCS  program,  he  may  wish  to  save  his  library  file  so  it  can 
be  restored  at  a later  time  A routine  called  UTILTY  is  used  to  perform  several  utility 
functions  concerned  with  maintaining  the  library  file  To  save  the  current  library  file,  the 
user  simply  invokes  UTILTY  ('SAVE',  file  number)  This  file  number  must  be  different 
from  the  library  file  All  data  structure  contained  in  the  library  will  be  reformatted  into  a 
standard  Hollerith  card  format  and  written  to  the  save  file.  To  restore  a saved  file  to  the 
library  file,  the  UTILTY  ('LOAD',  file  number)  function  woulc  be  used.  Other  UTILTY 
functions  exist  to  MERGE  a save  file  into  the  existing  library  file,  PURGE  the  existing 
library  file,  and  DELETE  or  RENAME  structures  in  the  library  file 
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TABLE  X-1 


DATA  STRUCTURE  ELEMENTS 


The  following  routines  will  cause  elements  to  be  inserted 
in  QCS  data  structures  being  built 

UARC 

UCALL/U3CALL* 

UCOSvS/U3CSYS* 

i ippri  p 

UDRAW/U3DRAW* 

UMOVE/U3MOVE* 

UPEN/U3PEN* 

UPRINT/U3PRNT* 

UPRNT1 

UPSET 

URECT 

UROTAT/U3ROTA* 

USCALE/U3SCAL* 

USET 

UWRITE/U3WRIT* 

UWRIT1 

*2-D  calls  stored  in  3-D  form 


ooo 


C THIS  PROGRAM  DEMONSTRATES  THE  SAVING  OF  DATA  STRUCTURES  AND 
C SHOWS  THE  DIFFERENCE  BETWEEN  ORTHOGONAL  AND  PERSPECTIVE 

C PLOTTING 

C 

C ATTACH  A PERMANENT  FILE  TO  SAVE  THE  DATA  STRUCTURES  ON  A 

C HONEYWELL  COMPUTER 

C 

CALL  ATTACH  (8//TEK3DEMO/SAVE; , 3,0, 1ST,) 

CALL  USTART 
CALL  UPSET  ('LIBR',1 .) 

CALL  UPSET  CSETD',1.) 

CALL  UPSET  ('TERMINATOR', ';') 

CALL  USET  ('PERC') 

CALL  UDAREA  (0.,1  00..0..1 00.) 

CALL  UOUTLN 

CALL  UWINDO  (-1  00  ,1 00., -1 00., 1 00.) 

CALL  USTRCT  ( AXIS') 

CALL  AXIS 
CALL  UTERM  ( AXIS') 

CALL  USET  ('ORTH') 

CALL  U3CSYS  (25., 25., 25., 1 .,1  ,1  .,1 0..1 0 ,0.) 

CALL  UVIEW  (-20..-20..-1  50.,0.,0.,0.) 

CALL  USTRCT  ('BOX') 

CALL  BOX 

CALL  UTERM  ( BOX') 

CALL  USET  ('PERSPECTIVE') 

CALL  BOX 

CALL  UTILITY  ('SAVE', 8.) 

CALLUEND 
STOP 
END 

SUBROUTINE  AXIS 
CALL  USET  ('DASH') 

NEED  TO  DO  A MOVE  INSIDE  STRUCTURE 

CALL  U3MOVE  (-20., -20., -20 ) 

CALL  U3PEN  (50. ,-20. ,-20.) 

CALL  UPRNT 1 <'X;','TEXT') 

CALL  U3MOVE  (-20., -20., -20.) 

CALL  U3PEN  (-20., 50., -20.) 

CALL  UPRNT  1 ('Y;’t 'TEXT') 

CALL  U3MOVE  (-20., -20  ,-20.) 

CALL  U3PEN  (-20..-20..1  00.) 

CALL  (UPRNT  1 CZ;',  'TEXT') 

RETURN 
END 

SUBROUTINE  BOX 
CALL  USET  ('LINE') 

CALLUMOVE  (0  ,0  ,0 ,) 

CALL  U3PEN  (10..0..0.) 

CALL  U3PEN  (10,10  ,0.) 

CALL  U3PEN(0„  10,0) 

CALL  U3PEN  (0  ,0  ,0.) 

CALL  U3MOVE  (1 0.,0.,0.) 

CALL  U3PEN  (10  ,0  ,60  ) 

CALL  U3PEN  (10.  10  ,60  ) 

CA!  LU3PEN  (10  ,10  ,0.) 
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CALL  U3M0VE  (0.,10.,0.) 
CALL  U3PEN(0., 10  ,60.) 
CALL  U3PEN  (10., 10  ,60.) 
CALL  U3MOVE  (C.,0.,0.) 
CALL  U3PEN  (0..0..60.) 
CALL  U3PEN  (0., 10  ,60.) 
CALL  U3PEN  (0..10..0.) 
CALL  U3MOVE  (0.,0.,60.) 
CALL  U3PEN  (1 0.,0.,60.) 
RETURN 
END 


EXAMPLE  X-1 
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ATTACH  Ct, '/TEK9PEM0/SAVE, ',9,S, I8T, > 
UfiTART 

UPSET  C'TERMXNATQR'  'i'5 
UPSET  C'SPEEP'  1».> 

UPSET  {'LIBRARY', t.> 

UPSET  C'*E7DA*H',1 .) 

USET  C'PERCblTUNlTSO 
up  AREA  CB., IBS. ,8. ,108.) 

UERA8E 

UOUTLN 

uhznpo  c-ise.,ies.,-ise., jss.> 

USTRCT  {'AXIS  O 

UTERH  < 7 AXIS  O 
USET  C'QRTHOBQNAL'  3 

uscsys  c«s^e«?/7*E.,».,i.,i.,i0.,is..0.> 

UVZEN  C*-S8.,— C8.,*-I6S.,B.,B.,8.) 

USTRCT  {'BOX  ') 

HK 

UTERH  {'BOX  O 
USET  C / PERSPECTIVE / ? 

UTILTY  ('SAVE', 8.) 

UENP 


I 


) 

> 


THIS  PROGRAM  DEMONSTRATES  THE  LOADING  OF  DATA  STRUCTURES 
THAT  WERE  PREVIOUSLY  SAVED  ON  A PERMANENT  FILE  ON  A HONEYWELL 
COMPUTER. 


CALL  ATTACH  (8,7TEK3DEMO/SAVE;',3,O.IST,) 

CALL  USTART 

CALL  UPSET  ('LIBR',1 .) 

CALL  UPSET  ('SETD',1 .) 

CALL  USET  ('PERC') 

CALL  UDAREA  (0..1  00.,0.,1 00.) 

CALL  UOUTLN 

CALL  UWINDO  (-1 00., 1 00., -1 00., 1 00.) 

CALL  UTILTY  ('LOAD',8.) 

CALL  U3MOVE  (0..0..0.) 

CALL  UINVOK  ( AXIS') 

CALL  USET ( ORTH  ) 

CALL  U3CSYS  (25.,25.,25..1  .,1  .,1  .,10  ,1 0,0.) 
CALL  UVIEW  (-20  ,-20  -1  50  .0  ,0  .0 ) 

CALL  U3MOVE  (0..0..0.) 

CALL  UINVOK  ( BOX') 

CALL  USET  ( PERSPECTIVE  ) 

CALL  U3MOVE  (0  ,0  ,0.) 

CALL  UNIVOK  ( BOX') 

CALLUEND 

STOP 

END 


EXAMPLE  X-2 


I 


c 

c 

c 

c 


THIS  PROGRAM  DEMONSTRATES  THE  LOADING  OF  DATA  STRUCTURES 
THAT  WERE  PREVIOUSLY  SAVED  ON  A PERMANENT  FILE  ON  A HONEYWELL 
COMPUTER  FOR  DISPLAY  ON  TEKTRONIX  401 4/401  5 TERMINAL. 

CALL  ATTACH  (8,'/TEK3DEMO/SAVE,',3,0,IST,) 

CALLUSTART 
CALL  UPSET  ( LIBR',1 .) 

CALL  UTILITY  ('LOAD' ,8.) 

CALL  UPSET  ('TERM',' <') 

CALL  USET  ( VIEW') 

CALL  UVWPRT  (150.) 

CALL  UWINDO  (-1 00., 1 GO.,-1 00., 1 00.) 

CALL  UVIEW  (-40. . 200. , 70. ,-20., 20. ,0.) 

CALL  UDAREA  (0.,7.,0.,7  ) 

CALLVILLAG 

CALL  UDAREA  (7.1,14,1.0  ,7.) 

CALL  VIEW  (-70., -1 60.,50.,0.,0.,1 0.) 

CALLVILLAG 
CALL  UEND 
STOP 
END 

SUBROUTINE  VILLAG 
CALL USET (XYZ) 

CALL  USET  CSYST') 

CALL  USET  ( REFE  ) 

CALL  USET  ('BLACK') 

CALL  U3CALL  (-50.,20.,0.,1  .,1  .,1 ., 90., 0., 0., 'CHURCH') 

CALL  USET  ('RED') 

CALL  U3CALL  (24., -1 9 .0  ,1  .,1  .,1  .,90., -90., 0., ’SCHOOL  ) 

CALL USET (BLUE) 

CALL  U3CALL  (70.,70.,0.,0.7,0.7,0-.7,0.,0  ,0.,'PIZZA') 

CALL USET (BLACK) 

CALL  U3CALL  (0..0..0..1  „1  .,1  „0.,0.,0.,'ROAD') 

RETURN 

END 
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PICTURE  SEGMENTATION  AND  NAMING 


Refresh  Grephlc  Facilities 

Many  computer  graphics  display  applications  require  only  a static  display  in  order  to 
convey  information.  That  is,  the  complete  picture  provides  all  of  the  relevant  information 
that  can  be  derived  from  the  data  used  to  produce  the  display.  In  some  situations 
however,  a static  display  provides  incomplete  information.  For  example,  the  plot  of  a 
missile  trajectory  does  not  reveal  the  relative  speed  of  the  projectile  while  in  flight.  In 
such  situations,  a dynamic  display  which  portrays  motion  provides  more  information  to 
the  user  than  does  a static  display.  GCS  provides  a facility  for  the  dynamic  display  of 
information  and  for  selective  erase  of  information  on  refresh  graphic  display  devices  if 
available.  The  facility  allows  the  user  to  identify  and  bracket  a portion  or  portions  of  his 
display,  assign  a name  to  the  section,  turn  the  named  section  on  or  off,  and  replace  a 
named  section  with  a new  definition  of  the  section. 

The  basic  unit  of  information  of  a dynamic  display  is  the  frame'.  A frame  represents  a 
portion  of  a display  having  a known  origin  and  a known  termination.  The  GCS 
subroutines  which  delimit  the  start  and  the  end  of  a frame  are  UFRAME  and  UFREND. 
They  are  invoked  as  follows: 

CALL  UFRAME  (NAME) 

CALL  UFREND  (NAME) 

where  NAME  is  an  eight  character  alphanumeric  variable  or  constant.  The  subroutine 
UFRAME  indicates  the  starting  point  of  the  framed  information  and  subroutine  UFREND 
denotes  the  ending  point.  Note  that  multiple  frames  may  be  defined,  but  nesting  of 
frames  is  not  permitted;  that  is,  subroutine  UFREND  must  be  called  to  'close'  the  current 
frame  before  the  subroutine  UFRAME  is  invoked  to  open'  another  frame. 

Whenever  a UFRAME/UFREND  pair  are  invoked  to  replace  the  previous  occurrence  of 
the  named  frame,  the  previous  occurrence  is  deleted  upon  completion  of  the  new  version 
of  the  frame,  as  signalled  by  the  call  to  UFREND  for  that  frame.  Thus  the  complete  frame 
will  replace  the  previous  complete  frame.  This  is  the  default  condition  in  GCS  and  is 
known  as  'invisible'  building  of  a frame.  It  can  be  specified  by  the  following  invocation  to 
USET: 

CALL  USET  ('INVISIBLE') 

For  some  dynamic  graphic  applications,  it  is  preferable  to  see  the  frame  being  built  line- 
by-line.  In  this  case,  the  previous  frame  must  be  deleted  when  the  call  to  UFRAME  is 
made  for  frame  redefinition.  The  user  can  request  the  visible  building  of  a frame  by  the 
following  call; 

CALL  USET  ('VISIBLE') 

After  a frame  is  completely  built,  and  terminated  by  a call  to  UFREND,  it  may  be 
selectively  'turned  on'  and  'turned  off'  by  the  use  of  the  following  GCS  subroutines: 

CALL  USHOW  (NAME) 

CALL  UNSHOW  (NAME) 

where  NAME  is  the  eight  character  alphanumeric  variable  or  constant  which  is  the  name 
assigned  to  the  frame  upon  which  the  operation  is  to  be  performed  When  USHOW  is 
invoked  for  an  invisible  frame,  the  frame  is  made  visible;  if  UNSHOW  is  invoked  for  a 
visible  frame,  the  frame  is  made  invisible. 
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Note  that  the  GCS  subroutine  UERASE  affects  the  status  of  frames  by  completely 
removing  all  frames  and  frame  names  from  GCS.  Thus  if  'JSHOW  or  UNSHOW  are 
invoked  after  a call  to  UERASE,  an  error  will  be  indicated.  In  addition,  it  is  improper  to 
call  UERASE  while  a frame  is  'open',  i.e.,  after  a call  to  UFRAME  and  before  a call  to 
UFREND. 


SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  MULTIPLE  ENTITY  FRAMING. 
INITIALIZE  VARIABLES,  ENTER  GCS,  OUTLINE  VIRTUAL  WINDOW. 


C 
C 
C 

c 

X-10.0 

Y-80.0 

CALL  USTART 

CALL  UOUTLN 

CALL  UPSET  ('LIBRARY',  1 .) 

C 

C DEFINE  A LOOP  TO  DRAW  A TRIANGLE  AND  SQUARE  DYNAMICALLY. 

C 

DO  1 1-1,8 
C 

C INDICATE  THE  BEGINNING  OF  THE  TRIANGLE  FRAME  DEFINITION,  THEN 
C PROVIDE  TEN  COMMANDS  REQUIRED  TO  DRAW  THE  FIGURE 

C 

CALL  UFRAME  ('TRIANGLE') 

CALLUMOVE  (X.X) 

CALLUPEN  (X,(X  + 5.0)) 

CALL  UPEN((X  + 5.0), X) 

CALLUPEN  (X,X) 

C 

C INDICATE  THE  TERMINATION  OF  THE  TRIANGLE  FRAME,  AND  THE 
C BEGINNING  OF  THE  FRAME  DEFINITION  FOR  THE  SQUARE. 

C 

CALL  UFREND  ('TRIANGLE') 

CALL  UFRAME  ('SQUARE') 

C 

C NOW  PROVIDE  THE  PEN  COMMANDS  REQUIRED  TO  DRAW  A SQUARE. 

C 

CALLUMOVE  (X.Y) 

X-X+10.0 
Y — Y-1 0.0 

CALL  URECT  ((X-5.0),Y  + 1 5.0)) 

C 

C INDICATE  THE  TERMINATION  OF  THE  SQUARE  FRAME,  AND  LOOP. 

C 

CALL  UFREND ( SQUARE  ) 

1 CONTINUE 
CALL  UEND 
STOP 
END 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  GCS  FRAMING  FACILITIES 


DEFINE  INITIAL  POSITION,  ENTER  GCS,  OUTLINE  VIRTUAL  WINDOW. 

CHARACTER  CHAR*  1 

X-10.0 

CALL  USTART 

CALL  UOUTLN 

CALL  UPSET  ('LIBRARY', 1 .) 

DEFINE  A LOOP  TO  DYNAMICALLY  DISPLAY  8 DEFINITIONS  OF  A TRIANGLE. 
INDICATE  THE  START  OF  THE  'FRAMED'  INFORMATION 

DO  1 1-1,8 

CALL  UFRAME  ( TRIANGLE  ) 

PEN  COMMANDS  TO  DEFINE  THE  TRIANGLE  A POSITIONAL  VARIABLE  IS 
ALSO  UPDATED  WITHIN  THIS  LOOP. 

CALL  UMOVE  (X,X) 

CALL  UPEN  (X,(X  + 5.0)) 

CALL  UPEN  ((X  + 5.0),X) 

CALL  UPEN  (X  = X+ 10.0 

INDICATE  THE  TERMINATION  OF  THE  TRIANGLE  FRAME  DEFINITION. 

CALL  UFREND  ( TRIANGLE  ) 

1 CONTINUE 

DEACTIVATE'  THE  EIGHTH  FRAME  DEFINITION  OF  THE  TRIANGLE  THAT  WAS 
DEFINED;  I.E..  MAKE  IT  INVISIBLE'. 

CALL  UNSHOW  ('TRIANGLE') 

REQUEST  A CHARACTER  FROM  THE  KEYBOARD;  ACTIVATE  THE  LAST 
FRAME  IF  THE  LETTER  'T'  IS  ENTERED,  OTHERWISE,  TERMINATE. 

2 CALL  UAIN  (CHAR) 

IF  (CHAR  NE  T')  GO  TO  3 
CALL  USHOW  ('TRIANGLE') 

GO  TO  2 

3 CALLUEND 
STOP 
END 
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CHARACTER  CHAR»t 

X»1G.G 

«»AI  i ustart 

CALL  UPSET  C' LIBRARY', 1 .5 
CALL  UOUTLN 
00  I Z " lx  • 

CALL  UPRANE  C' TRIANGLE'? 
CALL  UHOVE  CX,X? 

CALL  UPEN  OLOC*«.G» 
CALL  UPEN  <CX*6.a?,X> 

CALL  UPEN  CKX> 

x - x «■  is. a 

CALL  UPREND  ('TRIANGLE'? 


1 . 

CALL  UNSHOW  ('TRIANGLE'? 

E CALL  UAXN  (CHAR? 

IP  CCHAR  .NE.  'T'?  GO  TO  S 
CALL  UGHOM  ('TRIANGLE'? 

GO  TO  t 
G CALL  UEND 
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C SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ELEMENTARY  FRAMING  AND 
C ROTATION.  THE  ROTATIONAL  TECHNIQUE  EMPLOYED  IN  THE  PROGRAM  IS 
C QUITE  LIMITED,  HENCE  THE  USER  IS  DIRECTED  TO  USE  THE  GCS 
C SUBROUTINE  'UCOSYS'  FOR  APPLICATIONS  REQUIRING  MORE  ROTATIONAL 
C CAPABILITIES. 

C 

C INITIALIZE  VARIABLES,  ENTER  GCS,  DEFINE  NEW  VIRTUAL  WINDOW  AND 
C OUTLINE  IT. 

C 

DATA  DEGREE/0.0/ 

CALLUSTART 

CALL  UWINDO  (-50„50.,-50.,50.) 

CALL  UOUTLN 
CALL  UPSET  ('LIBRARY',  1 .) 


SPECIFY  THAT  POLAR  COORDINATES  ARE  TO  BE  USED  TO  SIMPLIFY  THE 
PROGRAM,  AND  DEFINE  LOOP  TO  DRAW  A SQUARE  DYNAMICALLY. 

CALLUSET  ('POLAR') 

DO  1 1-1,12 

DEGREE  = DEGREE  = 30  0 


INDICATE  THE  BEGINNING  OF  FRAME  DEFINITION  FOR  THE  SQUARE  AND 
PROVIDE  THE  NECESSARY  COMMANDS  TO  ROTATE  AND  DRAW  IT. 

CALL  UFRAME  ('SQUARE') 

CALL  UMCVE  (25., DEGREE) 

CALL  UPSET  ('ROTATE', DEGREE) 

CALLUSET  ('RELATIVE') 

CALL  UPLYGN  (0.,0.,4.,5.) 

CALLUSET  ('ABSOLUTE) 

INDICATE  THE  TERMINATION  OF  THE  SQUARE  FRAME,  AND  THE  LOOP. 

CALL  UFREND  ('SQUARE') 

1 CONTINUE 
CALLUEND 
STOP 
END 
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C SAMPLE  PROGRAM  ILLUSTRATING  APPLICATIONS  OF  GCS  SUBROUTINES 
C USHOW  AND  'UNSHOW'  A SQUARE  WILL  BE  SIMULTANEOUSLY  SCALED. 
C ROTATED  (ORIENTED).  AND  TRANSLATED  IN  NINE  DISCRETE  PHASES,  WITH 
C A SEPARATE  FRAME  REPRESENTING  EACH  PHASE. 

C 

C INITIALIZE  VARIABLES,  ENTER  GCS.  AND  OUTLINE  VIRTUAL  WINDOW. 

C 

CHARACTER  FRAME*8(9) 

DATA  FRAME/'A',  'B\  'C',  D'.  'E\  'F\  'G',  'H',  '17 

CALL  USTART 
CALL  UOUTLN 
CALL  UPSET  ('LIBRARY', 1.) 

SETUP  LOOP  TO  DEFINE  EACH  OF  THE  NINE  FRAMES  FOR  THE  SQUARE 

DO  1 1 = 1.9 
X = 1 0.O'FLOATO) 

INDICATE  THE  BEGINNING  OF  FRAME  DEFINITION  FOR  THE  SQUARE,  AND 
PROVIDE  COMMANDS  TO  SCALE,  ROTATE.  AND  TRANSLATE  IT. 

CALL  UFRAME  (FRAME(D) 

CALL  UMOVE  X,X) 

CALL  UPSET  ('ROTATE',  X) 

CALL  USET  ( RELATIVE  ) 

CALL  UPLYGN  (0.,0.,4..FLOAT(D) 

CALL  USET  ('ABSOLUTE') 

INDICATE  THE  TERMINATION  OF  EACH  FRAME,  AND  CALL  UNSHOW  TO  MAKE 
THE  NEWLY  DEFINED  FRAME  INVISIBLE 

CALL  UFREND  (FRAME(D) 

CALL  UNSHOW  (FRAME  (I)) 

1 CONTINUE 

AT  THIS  POINT,  ALL  OF  THE  FRAMES  HAVE  BEEN  DEFINED,  NOW  WE  WILL 
DISPLAY  EACH  OF  THE  FRAMES  IN  SUCCESSION,  FOR  A TOTAL  NUMBER  OF 
90  CYCLES  = 10  OCCURRENCES  OF  EACH  FRAME 

DO  2 1=1,90 
J = MOD((l-1),9)  + 1 

CALL  UNSHOW  TO  DISPLAY  THE  J'TH  FRAME  (MAKE  IT  VISIBLE),  AND  THEN 
CALL  UNSHOW  TO  MAKE  IT  INVISIBLE  SINCE  THIS  IS  DONE  AT  RAPID  RATE, 
THE  SQUARE  WILL  APPEAR  TO  BE  DYNAMICALLY  SCALED,  ROTATED,  AND 
TRANSLATED 

CALL  UNSHOW  (FRAME(J)) 

CALL  UNSHOW  (FRAME(J)) 

2 CONTINUE 

INDICATE  END  OF  AL„  GRAPHIC  ACTIVITY  AND  TERMINATE  PROGRAM 

CALL  UEND 
STOP 
END 
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CHARACTER  FRAMC«tCt3 

DATA  FRANE/'A'. *B* , *C*. *0*, *E* . *f* 

CALL  UtTART 

CALL  UPtET  C' LIBRARY'.  1 .5 
CALL  UOUTLN 
DO  I Z * l<  • 

X - It.*  « RLOATCU 
CALL  UFRANE  CPRAMECI33 
CALL  UMOVE  CX.X3 
CALL  UPtET  C'RCTATE'.X* 

CALL  UtET  C' RELATIVE '3 

CALL  UPLYtN  C*. ,0.^4. .FLOAT Cl >5 

CALL  UtET  C'ABtCLUTE'3 

CALL  UFREND  C FRAME Cl 3 3 

CALL  UNtHOW  C FRAME Cl 3 3 

CONTINUE 

DO  I I a I.  at 

U - MOD C Cl- 1 3.03  ♦ | 

CALL  UtHOV  C FRAME CO 3 3 
CALL  UNtHOW  CFRAMEC033 
CONTINUE 
CALL  UEND 

rrop 

END 
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APPENDIX  A 

ALPHABETICAL  LISTING  OF  GCS  SUBROUTINES 

UAIN  Accepts  one  character  from  the  terminal 

CALL  UAIN  (ICHAR) 

UALPHA  Insures  that  terminal  is  in  alphanumeric  mode 

CALL  UALPHA 

UAOUT  Outputs  a character  at  current  pen  position  subject  to  margining 

CALL  UAOUT  (ICHAR) 

UAPEND  Adds  GCS  string  terminator  to  character  string 

CALL  UAPEND  (COUNT, DA^AIN.DATOUT) 

UARC  Draws  an  arc  from  current  pen  position 

CALL  UARC  (X.Y, ANGLE) 

UASPCT  Forces  the  display  dimensions  to  satisfy  the  specified  aspect  ratio 

CALL  UASPCT  (RATIO) 

UAVERG  Fits  a moving  average  curve  to  time  series  data 

CALL  UAVERG  (ARRAY, POINTS, FCST, PERIOD) 

UAXIS  Draws  axes  with  appropriate  numeric  and  alphanumeric  labeling 

CALL  UAXIS  (XMIN.XMAX.YMIN.YMAX) 

UBAR  Draws  a bar  chart  with  appropriate  numeric  and  alphameric  labels 

CALL  UBAR  (ARRAY.PTS, LABELS, SIZE) 

UBELL  Sounds  the  audible  alarm  at  the  terminal 

CALL  UBELL 

UCALL  Invokes  a graphic  data  structure  in  two  dimensions 

CALL  UCALL  (NAME, DX.DY.SX.SY, ANGLE) 

UCHART  Draws  a grouped  bar  chart  for  multi-valued  data 

CALL  UCHART  (ARRAY.GROUPS, BARS, LABELS, YMAXL) 

UCLOSE  Closes  the  current  open  frame/segment 

CALL  CLOSE  (SEGNAM) 

UCONIC  Draws  generalized  conic  sections 
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CALL  UCONIC  (X,Y,P,E,THETA1  .THETA2) 

UCONTR  Draws  contours  on  regular  array  of  data 

CALL  UCONTR  (Z,X,Y,A,FX,FY, CURVE, FN) 

UCOSYS  Creates  a user  coordinate  plotting  system 

CALL  UCOSYS  (DX.DY.SX.SY, ANGLE) 

UCOUNT  Counts  number  of  characters  in  character  string 

CALL  UCOUNT  (DATA, COUNT) 

UCRCLE  Draws  a circle  whose  center  location  and  radius  are  specified 

CALL  UCRCLE  (X.Y, RADIUS) 

UDAREA  Sets  the  device  display  area  associated  with  user  window 
CALL  UDAREA  (XMIN,XMAX,YMIN,YMAX) 

UDELET  Deletes  a currently-defined  frame/segment 

CALL  UDLETE  (SEGNAM) 

UDIMEN  Adjusts  physical  boundaries  of  output  device  (alters  aspect  rates) 

CALL  UDIMEN  (XMAX.YMAX) 

UDOIT  Perform  various  page  layout  functions 

CALL  UDOIT  (ACTION) 

UDRAW  Draws  solid  line  vector 

CALL  UDRAW  (X.Y) 

UDRIN  Performs  the  input  requested  graphic  operation  and  returns  request 

CALL  UDRIN  (X.Y.ICHAR) 

UEND  Terminates  graphic  operations  and  positions  pen  in  home  position 

CALL  UEND 

UERASE  Erases  the  screen  or  requests  a clean  plotting  surface 

CALL  UERASE 

UERROR  Returns  listing  of  source  records  with  GCS  error  commentary 

CALL  UERROR  (ERLAST, TOTAL) 

UFLUSH  Insures  that  visual  display  reflects  alt  net  program  graphical  output 

CALL  UFLUSH 


f A-2 


UFRAME 


Defines  the  start  of  a named  set  of  graphical  commands 
CALL  UFRAME  (NAME) 


UFREND 

UGRIN 

UHISTO 

UHOME 

UIMAGE 

UINPUT 

UINVOK 

ULINE 

ULINFT 

ULOOK 

ULSTSQ 

UMARGN 

UMENU 

UMODFY 


Defines  the  end  of  a named  set  of  graphical  commands 
CALL  UFREND  (NAME) 

Gets  coordinates  and  a character  from  terminal  and  returns  them 
CALL  UGRIN  (X.Y.ICHAR) 

Draws  a histogram  with  appropriate  numeric  and  alphanumeric  labels 
CALL  UHISTO  (ARRAY, PTS.BARS) 

Moves  beam  to  home  position 

CALL  UHOME 

Applies  general  2-D  image  transformations  to  retained'  segments 
CALL  UIMAGE  (X.Y.SX.SY.R.SEGNAM) 

Inputs  alphanumeric  information  from  the  current  position 
CALL  INPUT  (DATA, COUNT, FLAG, OPTION) 

Invokes  a GCS  structure  at  the  current  position 
CALL  UINVOK  (NAME) 

Draws  a curve  connecting  two  arrays  of  points  in  two  spaces 
CALL  ULINE  (X.Y.PTS) 

Calculates  least  squares  linear  fit  to  points  provided 
CALL  ULINFT  (X.Y.XN.S.YI) 

Establish  portion  display  area  onto  which  corresponding  portion  of 
current  virtual  space  viewport  will  be  mapped 

CALL  ULOOK  (XMIN,XMAX,YMIN,YMAX) 

Calculates  least  squares  polynomial  fit  to  points  provided 

CALL  ULSTSQ  (X.Y.XN.COEFF) 

Sets  the  left  and  right,  top  and  bottom  alphanumeric  window  boundaries 
CALL  UMARGN  (X LEFT, X RIGHT, YBOTTM.YTOP) 

Menu  board  generating  routine 

CALL  UMENU  (POINTS, LABELS, CHOICE) 

Modifies  setting  of  segment  attributes 
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UMOVE 


CALL  UMODFY  (SEGNAM.NAMAT.ATVALU) 
Moves  the  pen  to  position  specified  by  input  arguments 
CALL  UMOVE  (X,Y) 


UNSAVE 

UNSHOW 

UNSVPN 

UNSVTR 

UOPEN 

UORIGN 

UOUTLN 

UPAUSE 

UPEN 

UPEN1 

UPIE 

UPLACE 

UPLOT 


Restores  all  variables  of  the  graphic  status  area 
CALL  UNSAVE  (ARRAY) 

Causes  the  named  frame  of  graphical  information  to  be  made  invisible 
CALL  UNSHOW  (NAME) 

Restores  all  pen  related  variables  in  the  graphics  status  area 
CALL  UNSVPN  (ARRAY) 

Restores  coordinate  system  related  variables  in  the  graphics  status  area 
CALL  UNSVTR  (ARRAY) 

Opens  a segment 

CALL  UOPEN  (SEGNAM.SEGTYP) 

Creates  a user  coordinate  system  at  the  current  beam/pen  position 
CALL  UORIGN 

Draws  a box  around  the  user's  display  area 
CALL  UOUTLN 

Suspends  execution  until  one  character  is  entered  from  Keyboard 
CALL  UPAUSE 

Draws  a line  from  current  pen  position  to  given  coordinates 
CALL  UPEN  (X,Y) 

Sets  one  'USET'  option  for  this  call  only  before  executing  pen  movement 
CALL  UPEN1  (X,Y, OPTION) 

Draws  a pie  chart  with  appropriate  numeric  and  alphameric  labels 
CALL  UPIE  (ARRAY, PTSXABELS, SIZE) 

Applies  2-D  translation  image  transformation  to  retained’  segments 
CALL  UPLACE  (X.Y.SEGNAM) 

General  purpose  multi-curve  plotting  routine 

CALL  UPLOT  (X.Y, CURVES, PARRAY, OPTION) 
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UPL0T1 


Plots  a single  curve 


CALL  UPLOT1  (X.Y.PTS) 

UPLYGN  Draws  a regular  polygon 

CALL  UPLYGN  (X.Y.PTSIN, RADIUS) 

UPOINT  Defines  poin*  which,  together  with  two  end  points  of  a given  line,  defines 
the  plane  for  the  terminator  and  tic  line 

CALL  UPOINT  (X,Y,Z) 

UPOST  Insures  that  only  defined,  visible  segments  are  displayed 

CALL  UPOST 

UPRINT  Prints  information  in  hardware  or  software  characters 

CALL  UPRINT  (X,Y, INPUT) 

UPRNT1  Allows  alphanumeric  output  at  current  position  with  specified  option 

CALL  UPRNT1  (DATA, OPTION) 

UPSET  Changes  setting  in  the  gas  which  requires  a parameter  value  to  be  set 

CALL  UPSET  (OPTION, VALUE) 

UQUERY  Obtains  current  value  of  specified  variable  in  GSA 

CALL  UQUERY  (OPTION, VALUE) 

UREAD  Allows  alphanumeric  input  from  the  graphic  terminal 

CALL  UREAD  (X.Y, DATA, COUNT, FLAG) 

URECT  Draws  a rectangle 

CALL  URECT  (X,Y) 

URESET  Resets  GSA  variables  to  default  conditions 

CALL  URESET 

UROTAT  Creates  a user  coordinate  system  at  current  position  rotated  as  specified 

CALL  ROTAT  (ANGLE) 

USAREA  Changes  device  boundaries  to  maintain  a one  to  one  aspect  ratio  with  the 
current  window  boundaries 

CALL  USAREA 

USAVE  Saves  all  the  variables  of  the  Graphics  Status  Area 

CALL  USAVE  (ARRAY) 
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USAXIS 


Draws  a single  axis  in  any  of  three  coordinates 
CALL  USAXIS  (AXIS.XSTART.YSTART.ZSTART.DIST) 

USCALE  Creates  a user  coordinate  system  at  current  position  with  specified  scale 

CALL  USCALE  (SX.SY) 

USCATR  Draws  a scatter  plot 

CALL  USCATR  (X.Y.PTS) 

USET  Sets  a graphics  status  area  variable  to  a given  value 

CALL  USET  (OPTION) 

USHOW  Causes  the  named  frame  of  graphical  information  to  be  made  visible 

CALL  USHOW  (NAME) 

USPLIN  Fits  a cubic  spline  curve  to  the  input  data 

CALL  USPLIN  (X,Y,PTS,RETX,RETY,RETPTS) 

USTART  Initializes  the  graphics  status  area 

CALL  USTART 

USTRCT  Defines  the  start  of  a graphic  data  structure 

CALL  USTRCT  (NAME) 

USTUD  Returns  limits  of  virtual  and  display  surfaces 

CALL  USTUD(S) 

USVPN  Saves  all  pen-related  variables  of  the  graphics  status  area 

CALL  USVPN  (ARRAY) 

USVTR  Saves  coordinate  system  related  variables  in  the  graphics  status  area 

CALL  USVTR  (ARRAY) 

UTAXIS  Draws  a time  series  axis  with  appropriate  alphameric  and  numeric  labels 
CALL  UTAXIS  (BEGIN, PERIOD, YMIN.YMAX) 

UTERM  Defines  the  end  of  a graphic  data  structure 

CALL  UTERM  (NAME) 

UTILTY  Performs  data  structure  utility  functions 

CALL  UTILTY  (OPTION, VALUE) 

UTSFIT  Fits  an  exponentially  smoothed  curve  to  time  series  data 
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UVIEW 

UVWPLN 

UVWPRT 

UWAIT 

UWHERE 

UWINDO 

UWLOOK 

UWRITE 

UWRIT1 

UZWNDO 

U3AXIS 

U3CALL 

U3CSYS 

U3DRAW 


CALL  UTSFIT  (ARRAY, POINTS, FCST, ALPHA) 

Defines  position  of  viewer  in  relation  to  environment,  and  the  direction  of 
view. 

CALL  UVIEW  (XVIEW,YVIFW.ZVIEW,XSITE,YSITE.ZSITE) 

Defines  the  location  of  the  view  (projection)  plane 
CALL  UVWPLN  (DISTAN) 

Defines  the  location  of  the  view  (projection)  plane  (obsolete,  see 
UVWPLN) 

CALL  UVWPRT  (DISTAN) 

Waits  a given  number  of  seconds 

CALL  UWAIT  (SECONDS) 

Returns  the  coordinates  of  the  current  pen  position  in  user  units 

CALL  UWhfcRE  (X.Y) 

Sets  the  virtual  window  boundaries 

CALL  UWINDO  (XMIN.XMAX.YMIN.YMAX) 

Adjusts  both  virtual  window,  and  user  display  area  to  cover  given  portion 
of  virtual  space 

CALL  UWLOOK  (XMIN.YMAX.YMIN.YMAX) 

Prints  information,  then  restores  pen  to  location  on  input 
CALL  UWRITE  (X.Y.DATA) 

Allows  apphameric  output  at  current  position  under  one  option 
CALL  UWRIT1  (DATA, OPTION) 

Sets  the  hither/yon  window  boundaries  for  Z-clipping 
CALL  UZWNDO  (ZMIN.ZMAX) 

Creates  a set  of  axes  in  three  space 
CALL  U3AXIS  (XMIN.XMAX.YMIN.YMAX, ZMIN.ZMAX) 

Invokes  an  existing  graphics  data  structure  in  three  space. 

CALL  U3CALL  (X,YZSX,SY.SZ.RX,RY,RZ.NAME) 

Creates  a new  coordinate  system  in  three  space 
CALL  U3CSYS  (X,Y,Z,SX.SY,SZ,RX,RY.RZ) 

Draws  a solid  line  in  three  space 
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CALL  U3DRAW(X,Y,Z) 


U3GRIN 

U3IMAG 

U3LINE 

U3M0VE 

U3PEN 

U3PEN1 

U3PLACE 

U3PL0T 

U3PRNT 

U3R0TA 

U3SCAL 

U3STUD 

U3WHER 

U3WND0 


Gets  3-D  coordinates  and  a character  from  terminal  and  returns  them 
CALL  U3GRIN  (X.Y.Z.ICHAR) 

Applies  general  3-D  image  transformations  to  retained'  segments 
CALL  U3IMAG  (X,Y,Z,SX,SY,SZ.RX,RY,RZ,SEGNAM) 

Draws  a curve  connecting  three  arrays  of  points  (X.Y,Z)  in  three  spaces 
CALL  U3LINE  (X.Y.Z, PTS) 

Moves  pen  invisibly  in  three  space 

CALL  U3MOVE  (X,Y,Z> 

Draws  a line  from  current  pen  position  to  given  3-D  coordinates 
CALL  U3PEN  (X.Y.Z) 

Sets  one  'USET'  option  for  this  call  only  before  executing  3-D  pen 
movement 

CALL  U3PEN1  (X.Y.Z, OPTION) 

Applies  3-D  translation  image  transformation  to  retained'  segments 
CALL  U3PLAC(X,Y.Z.SEGNAM) 

Draws  a general  purpose  graph  in  three  space 

CALL  U3PLOT  (X.Y.Z.CURVES.PTS.OPTS) 

Displays  textual  data  at  pen  position  in  three  space 
CALL  U3PRNT  (X.Y.Z.DATA) 

Croats  a user  coordinate  system  in  three  space  at  current  pen  position, 
rotated  as  specified 

CALL  U3ROTA  (RX.RY.RZ) 

Creates  a user  coordinate  system  in  three  space  at  current  per  position, 
scaled  as  specified 

CALL  U3SCAL  (SX.SY.SZ) 

Gives  currant  setting  of  the  3-0  user  display  area  and  windows 
CALL  U3STUD  (ARRAY) 

Returns  current  pen  position  in  current  units  in  three  space 
CALL  U3WHER  (X.Y.Z) 

Sets  the  virtual  3-D  window  boundaries 


CALL  U3WNDO  (XMIN.XMAX.YMIN.YMAX.ZMIN.ZMAX) 


U3WRIT  Displays  textual  information  in  three  space,  returns  pen  to  original 
position 

CALL  U3WRIT  (X.Y.Z.DATA) 


APPENDIX  B 


USET  OPTIONS 

TABLE  1 

USET  OPTIONS  MOST  FREQUENTLY  USED 

TO  REQUEST  ABSOLUTE  COORDINATE  PLOTTING  (DEFAULT): 

USET  ('ABSOLUTE')  USET  ('ABSO') 

USET  ('ABSb') 

TO  REQUEST  RELATIVE  OR  INCREMENTAL  COORDINATE  PLOTTING: 
USET  ('RELATIVE')  USFT  ('RELA') 

TO  REQUEST  RECTANGULAR  COORDINATES  (DEFAULT): 

USET  ('RECTANGULAR')  USET  ('RECT') 

TO  REQUEST  POLAR  COORDINATES: 

USET  ('POLAR')  USET  ( POLA  ) 

TO  REQUEST  ANGULAR  VALUES  IN  DEGREES  (DEFAULT): 

USET  ('DEGREES')  USET  ('DEGR') 

TO  REQUEST  ANGULAR  VALUES  IN  RADIANS: 

USET  ( RADIANS')  USET  ( RADI  ) 

TO  REQUEST  PLOTTING  IN  VIRTUAL  SPACE  (DEFAULT): 

USET  ('VIRTUAL')  USET  ('VIRT') 

TO  REQUEST  PLOTTING  IN  DEVICE  SPACE: 

USET  ( DEVICE  ) USET  ('DEVI') 

TO  REQUEST  DEVICE  SPACE  PLOT1 ING  UNITS  IN  INCHES  (DEFAULT): 
USET  ('INCHES')  USET  ('INCH') 

TO  REQUEST  DEVICE  SPACE  PLOTTING  IN  RASTER  UNITS: 

USET  ('RASTERUNITS')  USET  ( RAST  ) 
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TO  REQUEST  DEVICE  SPACE  PLOTTING  IN  FONT  (CHARACTER  SPACE)  UNITS 


r 


USET  ('FONTUNITS')  USET  ( FONT') 

TO  REQUEST  DEVICE  SPACE  PLOTTING  IN  PERCENT  UNITS: 

USET  ('PERCENTUNITS')  USET  ('PERO 

TO  REQUEST  PLOTTING  OF  A VISIBLE  LINE  (DEFAULT) 

USET  ('LINE') 

TO  REQUEST  PLOTTING  OF  INVISIBLE  LINES: 

USET  ('MOVE') 

USET  ('NOLINE')  USET  ('NOLI') 

USET  ( NObLINE')  USET  ( NObL') 

TO  REQUEST  PLOTTING  OF  LINES  WITH  ARROW  TERMINATORS: 

USET  ('ARROW')  USET  ('ARRO') 

TO  REQUEST  PLOTTING  OF  DASHED  LINES: 

USET  ('DASH') 

TO  REQUEST  PLOTTING  OF  TIC  LINES: 

USET  ('TICLINE')  USET  ( TICL  ) 

TO  REQUEST  PLOTTING  OF  LINES  WITH  ONLY  ENDPOINTS  VISIBLE 
USET  ('POINT')  USET  ('POIN') 

TO  REQUEST  PLOTTING  OF  LINES  COMPOSED  OF  CHARACTERS: 

USET  ('ALPHANUMERICLINES')  USET  CALPH') 

TO  REQUEST  PLOTTING  OF  INVISIBLE  LINES  WITH  CHARACTERS  AT  THEIR 
ENDPOINTS 

USET  ('CHARACTER')  USET  ('CHAR  ) 

TO  REQUEST  CHARACTER  OUTPUT  IN  THE  FORM  OF  HARDWARE  CHARACTERS 
(DEFAULT): 

USET  ('HARDWARE')  USET  CHARD  ) 
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TO  REQUEST  CHARACTER  OUTPUT  IN  THE  FORM  OF  SOFTWARE  CHARACTERS: 


USET  ('SOFTWARE')  USET  ( SOFT') 

TO  REQUEST  UPRINT/UWRITE  OUTPUT  IN  TEXT  FORMAT  (DEFAULT) 

USET  ('TEXT') 

TO  REQUEST  UPRINT/UWRITE  OUTPUT  IN  INTEGER  FORMAT: 

USET  ('INTEGER')  USET  ('INTE') 

TO  REQUEST  UPRINT/UWRITE  OUTPUT  IN  REAL  FORMAT: 

USET  ('REALNUMBER')  USET  ('REAL') 

TO  REQUEST  PLOTTING  WITH  RESPECT  TO  THE  SYSTEM  AXIS  (DEFAULT): 
USET  ('SYSTEM')  USET  ('SYST') 

0 REQUEST  PLOTTING  WITH  RESPECT  TO  THE  USER  AXIS: 

USET  CUSERAXIS')  USET  ( USER  ) 


TO  REQUEST  A LINE  TYPE/CHARACTER  TERMINATOR  COMBINATION: 
USET  CXSbb')  USET  ( X$') 


Where 


AND 


$ IS  THE  DESIRED  CHARACTER  TERMINATOR 
X,  THE  LINE  TYPE  SPECIFICATION.  IS  AS  FOLLOWS: 


A ALPHANUMERIC  LINE 
D DASHED  LINE 
L SOLID  LINE 
N NULL  OR  INVISIBLE  LINE 
T TIC  LINE 
b denotes  blank 
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TABLE  2 

USET  OPTIONS  BY  ALPHABETICAL  ORDER: 
(Default  Options  are  in  Bold  Type) 


Option  Name 

To  Request 

'AARROW' 

Alphanumeric  lines  with  arrow  terminators 

'ABACKARROW' 

Alphanumeric  lines  with  back  arrow  terminators 

'ABEND' 

3D,* 

To  halt  execution  when  error  count  exceeds 
certain  limit 

'ABORT' 

3D 

To  halt  execution  when  error  count  exceeds 
certain  limit 

ABSb 

Plotting  in  an  absolute  coordinate  system 

ABSOLUTE 

Plotting  in  an  absolute  coordinate  system 

'ABUTTING' 

Abutting  of  display  surface  pages 

'ACENTER' 

To  center  character  output  about  given  location 

'ACHARACTER' 

Alphanumeric  lines  with  character  terminators 

ACOORDINATE' 

Alphanumeric  lines  with  ending  coordinates  in- 
dicated 

ADDITIVE' 

e 

Additive  color  blending  mode 

ADOUBLEARROW' 

Alphanumeric  lines  with  arrowhead  terminators 

'ALLDISPLAYS' 

Routing  of  graphical  output  to  all  devices 

ALPHANUMERIC' 

Alphanumeric  lines  with  no  -crminators 

ALTERNATEDISPLAY' 

Routing  of  graphical  output  to  first  alternate 
device 

ANNUAL' 

Time  series  axis  scale  in  yearly  intervals 

'ANULL' 

Alphanumeric  lines  with  no  terminators 

APOINT' 

Alphanumeric  lines  with  point  terminators 

ARROWLINE' 

Solid  lines  with  arrow  terminators 

ASYMBOL' 

Alphanumeric  lines  with  character  terminators 

'AUTOSCALE 

Automatic  scaling  for  higher  level  graphing 

BACK  ARROWLINE' 

Solid  lines  with  back  arrow  terminators 

BALL' 

Track  ball  graphical  input 

BLACK' 

Background  color  to  be  black 

BBLUE' 

Background  color  to  be  blue 

BCYAN' 

Background  color  to  be  cyan 

BESTFORMAT’ 

Numeric  label  output  in  best  possible  format 

BIHOURLY' 

Time  series  axis  scale  in  two  hour  intervals 

BLACK' 

Switch  to  pen  color  black 

BLUE' 

Switch  to  pen  color  blue 

BMAGENTA' 

Background  color  to  be  magenta 

BRED' 

Background  color  to  be  red 

BRIGHT' 

Highest  possible  intensity  for  output 

BUILD' 

3D 

Structure  building 

BWHITE' 

Background  color  to  be  white 

BYELLOW' 

Background  color  to  be  yellow 

CENTIMETERS' 

Device  space  coordina  ?s  are  in  centimeters 

CHARACTER' 

Null  or  invisible  lines  with  character  terminators 

'C  JUSTIFICATION' 

Alphanumeric  center  justification 

COMPRESSED'* 

3D 

Data  structure  editing  option 

CONTINUOUS 

Curved  lines  be  interpreted  as  one  pen  operation 

COORDINATES' 

UPRINT/UWRITE  output  in  (X.Y)  coordinate  format 

CURSOR' 

Graphic  cursor  as  graphic  input  device 

'CWINDOWING’ 

3D 

Circular  windowing 

’CYAN' 

Switch  to  pen  color  cyan 

CYLINDRICAL’ 

Coordinates  are  to  be  of  the  form  (R, THETA, Z), 

NOTE  j - is  a blank  or  space 
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where  R is  the  number  of  units  of  radius  in  the  X,Y 
plane,  THETA  is  the  number  of  angular  units 
around  the  Y axis,  and  Z is  the  number  of  units 
along  the  Z axis 


DAILY' 

Time  senes  axis  scale  in  daily  intervals 

DARROW' 

Dashed  lines  with  arrow  terminators 

DASH' 

Dasnnd  lines  with  null  terminations 

DATE' 

Time  eries  axis  scale  in  date  series  interval 

DBACKARROW' 

Dashed  lines  with  arrow  terminators 

'DCHARACTER' 

Dashed  lines  with  character  terminators 

DCOORDINATES' 

Dashed  lines  with  endpoint  coordinates  indicated 

'DDOUBLEARROW' 

Dashed  lines  with  double  arrow  terminators 

DEFERRED' 

• 

Deferred  error  output  until  UEND  is  called 

DEGREES' 

Angular  information  be  interpreted  in  degrees 

DESENSITIZE' 

1 

Disabling  of  pick  sensitivity 

'DETECTABLE' 

Enabling  of  pick  sensitivity 

DEVICE' 

Plotting  in  device  space 

DIGITIZER' 

Digitizer  is  graphics  input  device 

'DIMb' 

Lowest  possible  intensity  for  output 

'DIMENSIONLINE' 

Solid  lines  with  arrow  terminators 

DISPLAY' 

Plotting  in  device  space 

DNULL' 

Dashed  lines  with  no  terminators 

'DOUBLEARROW' 

Solid  lines  with  double  arrow  terminators 

'DPOINT' 

Dashed  lines  with  point  terminators 

DSYMBOL' 

Dashed  lines  with  character  terminators 

DUMP' 

To  select  dump  option 

'ECHO'* 

l 

Echo  alphanumeric  input  option 

EDGEAXIS' 

X and  Y axis  labels  at  edge  of  graph 

ERROROUTPUT’ 

Immediate  error  output 

EXECUTE 

3D 

Execution  of  data  structure  commands  as  they  are 
built 

EXPANDED'* 

3D 

Data  structure  editing  option 

EXTENDEDMENU'* 

1, 3D 

Extended  menuing  option 

'EXTRALARGE' 

Extra  large  character  size 

'FAST' 

Fast  blink  rate 

FITFRENCH' 

• 

Fit  french  curve  to  plotted  points 

FITLINEAR' 

Fit  linear  function  to  plotted  lines 

'FITPOLYNOMIAL' 

Fit  leas*  squares  polynomial  to  plotted  points 

'FITSPLINE' 

Fit  cubic  spline  curve  to  plotted  points 

'FNUMBERMODE' 

Frame  identifiers  provided  as  numbers 

FONTUNITS' 

To  indicate  device  spage  plotting  in  font  units 

'FULLSCALE' 

Full  scaling  for  higher  level  graphing 

FUNCTIONKEYS' 

Function  key  is  graphics  input  device 

GAPPED' 

Alternate  light  and  dark  line  output 

GFORMAT' 

Numeric  label  output  in  FORTRAN  real  (E  or  F) 
format 

GOTHIC' 

Gothic  character  font 

'GRADS' 

3D 

Angular  units  to  be  measured  in  grads 

'GREEN' 

Switch  to  pen  color  green 

GRIDAXIS' 

Grid  axes  for  higher  level  graphing 

HARDWAREFOf  T' 

Output  of  hardware  generated  characters 

HIGHLIGHTED' 

Highlighted  segments 

HITHER/YONbCLIPPING' 

Z axis  clipping 

HORIZONTAL' 

3D 

Alphanumeric  output  to  be  printed  horizontally 

HOURLY' 

Time  series  axis  scale  in  twenty-four  hourly 
intervals 

FORMAT' 

Numeric  label  output  in  integer  format 

IGNORE' 

3D 

Ignore  duplicate  studies  on  merge  file 

NOTE  b ■ is  a blank  or  space 
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INCHES 

INCREMENTAL' 

INTEGER' 

INVISIBLE' 

ITALICS' 

JOYSTICK' 

KEYBOARD' 

LARGE' 

LARROW' 

LBACKARROW' 

LCHARACTER' 

'LCOORDINATES' 

LDOUBLEARROW' 

LEFT' 

LETTER' 

LIGHTPEN' 

LINE 

LINXAXIS 
LINYAXIS 
L JUSTIFICATION’ 
LNULL 

LNXAXIS' 

'LNYAXIS' 

LOGARITHMIC' 

LOGOBJECT' 


'LOGORIGINALUNITS' 

LOGSYSTEM' 

LOGUSER' 


LOGXAXIS' 

'LOGYAXIS' 

LOWERCASE' 

LPOINT' 

'LSYMBOL' 

MAGENTA' 

MEDIUM' 

MESSAGEDEVICE' 

MILS' 

MINUTELY' 

MONTHLY' 

MOUSE' 

MOVE' 

MULTIPLE' 

NARROW' 

'NBACKARROW' 

NCHARACTER’ 

NCOORDINATES' 


Device  space  coordinates  in  inches 
Plotting  in  an  incremental  coordinate  system 
UPRINT/UWRITE  output  in  integer  format 
3D  Invisible  construction  of  frames  and  segments 
Italic  character  format 
I Joystick  as  graphic  input  device 

I Keyboard  as  (pseudo)  graphic  input  device 
Large  character  size 
Solid  lines  with  arrow  terminators 
Solid  lines  with  back  arrow  terminators 
Solid  lines  with  character  terminators 
Solid  lines  with  endpoint  coordinates  indicated 
Solid  lines  with  double  arrow  terminators 
3D  Left  handed  coordinate  system 

UPRINT/UWRITE  output  in  text  format 
I Light  pen  as  graphic  input  device 
Solid  lines  with  null  terminators 
Linear  X axis  drawing 
Linear  Y axis  drawing 
Alphanumeric  left  justification 
Solid  lines  with  null  terminators 
Natural  log  X axis  drawing 
Natural  log  Y axis  drawing 

Applies  logarithmic  transforms  to  all  components 
3D  Logarithmic  transforms  are  to  be  applied  before 
any  other  transformations.  (In  this  mode,  log 
transforms  may  be  applied  to  angle  or  radius 
components  of  'CYLINDRICAL',  POLAR',  or 
'SPHERICAL'  coordinates) 

Application  of  log  scaling  before  conversion  to 
rectangular 

3D  Logarithmic  to  be  applied  after  conversion  to 
'SYSTEM'  coordinates  (in  this  mode,  the  log- 
arithmic coordinate  system  axes.) 

3D  Logarithmic  transforms  are  to  be  applied  after 
conversion  to  ABSOLUTE',  RECTANGULAR', 
'USER'  coordinates  but  before  conversion  to 
SYSTEM'  coordinates.  (In  this  mode,  the  log- 
arithmic scaling  will  be  applied  along  the  current 
'USER'  coordinate  system  axes.) 

Base  ten  log  X axis  drawing 
Base  ten  log  Y axis  drawing 
Lower  case  to  be  TEXT  case 
Solid  lines  with  point  terminators 
Solid  lines  with  character  terminators 
Switch  to  pen  color  magenta 
Medium  character  size 

Alphanumeric  I/O  routed  to  a message  device 
3D  Angular  units  to  be  measured  in  mils 

Time  series  axis  scale  in  minute  intervals 
Time  series  axis  scale  in  monthly  intervals 
I Analog  mouse  as  graphic  input  device 
Invisible  lines  with  null  terminators 
3D  Multiple  data  structure  invocation 

Invisible  lines  with  arrow  terminators 
Invisible  lines  with  back  arrow  terminators 
Invisible  lines  with  character  terminators 
Invisible  lines  with  double  arrow  terminators 
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NDOUBLEARROW' 

NEGATIVESIDE 

3D 

Invisible  lines  with  double  arrow  terminators 
Labels  will  be  to  the  left  or  below  the  axes 

NEWSCALE 

NNULL' 

'NObLINE' 

NOABORT 

3D 

New  scale  for  higher  level  graphing 

Invisible  lines  with  null  terminators 

Invisible  tines  with  null  terminators 

Do  not  terminate  if  error  count  exceeds  specified 

NOAXES' 

NOBLINK 

'NOBUILD 

3D 

limit 

No  axes  be  drawn  for  higher  level  graphing 

No  blinking  to  occur 

No  structure  building 

'NOCENTER 

'NOCLIP' 

3D 

Text  output  starts  at  given  point 

No  device  space  clipping  performed 

'NODUMP' 

3D 

No  dump  performed 

'NOECHO' 

l,3D 

No  echoing  of  alphanumeric  input 

'NOEXECUTE'* 

3D 

No  execution  of  data  structure  commands  as  they 

NOFIT' 

NOHIGHLIGHTING 

'NOITALICS' 

'NOLINE' 

NOLOGARITHMS 

3D 

are  built 

No  curve  fitting  for  higher  level  graphics 

No  segment  highlighting 

No  slanting  of  software  characters 

Invisible  lines  with  null  terminators 

To  remove  logorithmic  transform  application 

'NONUNIFORM' 

3D 

High  level  plotting  option 

'NOMARK' 

'NONABUTTING' 

NONRETAINEDSEGMENTS' 

'NONUNIFORM' 

'NOORIGIN' 

3D 

Invisible  marks  with  null  terminators 

No  abutting  of  display  surface  pages 

Create  segments  in  non-retained  form 

Nonuniform  scaling  of  higher  level  grading 

No  origin  to  be  forced  for  'AUTOSCALE'  or 

NOREPEAT' 

3D 

'FULLSCALE'  scaling  options 

No  coordinate  repeating  for  high  level  plotting 

'NOREWIND' 

NORMALINTENSITY' 

NOSCRIPT 

3D 

No  rewind  of  structure  save  files 

Norman  intensity  for  output 

To  disable  any  superscripting  or  subscripting  of 

NOSIGNIFICANTZEROES' 

'NOSUPERSCRIPT' 

3D 

text  output 

Suppression  of  display  of  significant  zeros 

Same  as  'NOSCRIPTING' 

'NOTRAIL' 

3D 

Record  of  which  GCS  routines  are  invoked  is  not 

'NOWINDOWING' 

3D 

listed 

Disable  GCS  windowing  routine 

'NOXLABEL' 

NOXREPEAT' 

3D 

No  labels  are  to  be  drawn  for  graphing 

To  indicate  that  a component  is  provided  for  every 

'NOYLABEL' 

NOYREPEAT' 

3D 

X value  in  every  curve  in  higher  level  graphing 

No  Y labeling  for  graphing 

To  indicate  that  a component  is  provided  for  every 

NOZCLIPPING 

'NOZLABELS' 

3D 

Y value  in  every  curve  in  higher  level  graphing 

No  hither/yon  clipping 

To  indicate  that  no  Z labels  are  to  be  drawn  for 

NOZREPEAT' 

3D 

higher  level  graphing 

To  indicate  that  a component  is  provided  for  every 

NObLINE' 

NObMARK' 

'NPOINT' 

NSYMBOL' 

'OLDSCALE' 

ORIGIN' 

3D 

Z value  in  every  curve  in  higher  level  graphing 
Invisible  line  with  null  terminator 

Line  type 

Invisible  lines  with  point  terminators 

Invisible  lines  with  character  terminators 

Old  scale  to  be  used  for  higher  level  graphing 

An  origin  to  be  forced  for  'AUTOSCALE'  and 

'ORMODE' 

1,30 

'FULLSCALE'  scaling  options 

Asynchronous  event  processing  option 

ORTHOGRAPHIC' 

3D 

To  specify  orthographic  projection  in  which  the 

NOTE  b - is  a blank  or  space 
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OWNSCALE' 

PARALLELLABELS'  3D 

'PENAXIS' 

PENDOWN' 

PENORIGIN  30 

PENUP' 

PERIODIC' 

PERCENTUNITS' 

PERPENDICULARLABELS'  3D 

PERSPECTIVE'  3D 


PIRADIANS'  3D 

PLAINAXIS' 

PLOTDEVICE' 

POINT' 

POLAR' 

POSITIVESIDE'  3D 

PRIMARYDEVICE' 

QUARTERLY' 

RADIANS' 

RASTERUNITS' 

REAL' 

RECTANGULAR' 

REDb' 

'REFERENCE' 

REFRESHEDSEGMENT' 

RELb' 

RELATIVE' 


REPLACE'  3D 

RETAINEDSEGMENTS' 

REWIND'  3D 

RIGHTHAND'  3D 

^JUSTIFICATION' 
RWINDOWING'  3D 

SECONDLY' 

SECRET- 

SEGMENTED' 

SEMIANNUAL' 

SENSITIZE'  3D 

'S'GNIFICATZEROES' 
SIMULATED  HARDWARE 
CHARACTERS' 

SINGLE'  3D 

SITEPOINT'  3D 


SLOWBUNK' 

’SMALL' 

SOFTWAREFONT' 


projection  is  parallel  from  all  points 
Own  scale  option  for  higher  level  graphing 
To  specify  that  the  main  axis  of  the  numeric  labels 
will  be  parallel  to  the  axis 

Axis  intersection  at  current  position  for  grapning 
Solid  lines  with  null  terminators 
To  force  the  current  pen  position  to  be  included  in 
the  axis  range 

Invisible  lines  with  null  terminators 

Time  series  axis  scale  in  accounting  period 

intervals 

Device  space  coordinates  specified  in  percent 
units 

To  specify  that  the  major  axis  the  numeric  labels 
will  be  perpendicular  to  the  axis 
To  specify  perspective  projection  in  which  line 
length  diminishes  as  the  distances  from  the 
viewing  position  become  greater 
Angular  information  be  interpreted  in  PI  radians 
Plain  axes  to  be  drawn  for  high  level  graphing 
Alphanumeric  I/O  to  the  plotting  device 
Invisible  lines  with  point  terminators 
Plotting  in  polar  (RHO,  THETA)  units 
Lables  will  be  above  or  to  the  right  of  the  axis 
Routing  of  graphical  output  to  primary  device 
Time  series  axis  scale  in  quarter  year  intervals 
Angular  information  be  interpreted  in  radians 
To  indicate  device  space  coordinates  are  spec- 
ified as  is  in  raster  units 
UPRINT/UWRITE  output  in  real  number  format 
Plotting  on  the  user's  reference  axis 
Switch  to  pen  color  red 
Plotting  on  the  user's  reference  axis 
Segments  to  be  retained 
Plotting  in  a relative  coordinate  system 
Plotting  in  a relative  coordinate  system 
Data  structure  building  option 
Segments  to  be  retained  structures  from  merge 
file 

Data  structure  file  handling  command 

Right  handed  coordinate  system 

Alphanumeric  right  justification 

Rectangular  windowing 

Time  series  axis  scale  in  second  intervals 

Security  classification  secret 

Curved  lines  be  interpreted  as  multiple  pen 

operations 

Time  series  axis  scale  in  semi  annual  intervals 

Make  graphic  segments  visible 

Display  of  significant  zero 

Output  of  simulated  hardware  characters 

Data  structure  invocation  option 

Viewpoint  distance  to  be  measured  from  the  view 

site 

Slow  blink  rate 

Use  smallest  hardware  character  size 
Output  of  software  generated  characters 


NOTE:  b - is  a blank  or  space 
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SONICPEN' 

Sonic  pen  is  graphics  input  device 

'SPECIFIC' 

To  specify  particular  device 'units  instead  of 
percent  units  i 

'SPHERICAL' 

Coordinates  are  of  the  form  (R. THETA, PHI)  where 
R is  the  number  of  units  of  radius,  THETA  is  the 
number  of  angular  units  around  the  Z axis,  and  PHI 
is  the  number  of  angular  units  around  the  X axis 

STANOARDMENU' 

l,3D 

Menuing  option 

'SUBSCRIPT' 

3D 

To  specify  that  the  output  will  be  lowered  from  the 
specified  line  of  text 

SUPERSCRIPT' 

3D 

To  specify  that  the  output  will  be  raised  from  the 
specified  line  of  text. 

SUPPRESSERROR^' 

Error  output  be  suppressed 

'SYMBOL' 

Invisible  lines  with  character  terminators 

SYSTEMAXIS’ 

Plotting  on  the  system  axis 

'TABLET' 

1 

Analog  tablet  as  graphic  input  device 

'TARROW’ 

Tic  lines  with  arrow  terminators 

'TBACKARROW' 

Tic  lines  with  back  arrow  terminators 

TCHARACTER' 

Tic  lines  with  character  terminators 

'TCOORDINATES' 

Tic  lines  with  endpoint  coordinates  indicated 

TDOUBLEARROW' 

Tic  lines  with  double  arrow  terminators 

TEXT' 

UPRINT/UWRITE  output  in  text  format 

SUBTRACTIVE* 

Subtractive  color  blending  mode 

TICAXES' 

Tic  axes  to  be  drawn  for  higher  level  graphing 

TICUNE' 

Tic  lines  with  null  terminators 

'TNULL' 

Tic  lines  with  null  terminators 

'THINLINES' 

Line  width  to  be  thin 

'TOPSECRET' 

Security  Classification  Top  Secret 

'TPOINT' 

Tic  lines  with  point  terminators 

'TRAIL' 

3D 

To  indicate  by  an  identification  number  which 
GCS  routine  is  involved 

TSYMBOL' 

Tic  lines  with  character  terminators 

TWELVEHOUR' 

Time  series  axis  scale  in  twelve  hour  intervals 

TWENTYFOURHOUR' 

Time  series  axis  scale  in  twenty  four-hour  inter- 
vals 

UNCLASSIFIED' 

Security  classification  unclassified 

UNDETECTABLE' 

Disabling  pick  sensitivity 

'UNIFORM'* 

3D 

High  level  graphing  system 

UNINTERRUPTED' 

Non-gapped  line  output 

UPPERCASE' 

Upper  case  to  be  TEXT'  case 

USER' 

Plotting  on  a user  defined  axis  system 

VERTICAL' 

3D 

Alphanumeric  output  to  be  spaced  vertically 

'VIEWPOINT- 

3D 

View  port  distance  to  be  measured  from  the  view 
point 

VIRTUAL' 

Plotting  in  virtual  space 

VISIBLE' 

3D 

Visible  framed  output 

WEEKLY' 

Time  series  axis  scale  in  weekly  intervals 

'WHITE' 

Switch  to  pen  color  white 

WIDELINES' 

Line  width  to  be  wide 

WORKING' 

New  cumulative  user  coordinate  system 

WORLDCOORDINATESYSTEM' 

Coordinate  system  to  be  the  default  axis  system 

XABSOLUTE' 

3D 

To  specify  the  X coordinates  with  respect  to  the 
origin  of  the  current  coordinate  system  for  indica- 
ted components  Y and  Z components  are  to  be 
specified  with  respect  to  the  current  beam/pen 

l 

position 

X ALPHANUMERIC' 

An  X axis  alphanumeric  label 

XAXIS' 

The  X axis  be  drawn  for  high  level  graphing 

NOTE:  b - is  a blank  or  space 
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'XBOTHLABELS' 

XCONSTANT' 

i3D 

X axis  alphanu/neric  and  numeric  labels 

Jo  indicate  that  the  X component  does  not  vary 

\ j 

XEDGEYZEROAXIS' 

XLOGARITHMIC' 

'XNEGATIVE' 

3D 

during  the  dpawing  of  any  curve  m higher  level 
graphics 

The  X axis  at  edge  of  graph 

Logarithmic  X and  linear  Y plotting 

Negative  X axis  represents  up  in  3D  graphics 

XNUMERIC 

3D 

An  X axis  numeric  label 

XPOSITIVE' 

3D 

Positive  X axis  represents  up  in  3D  graphics 

'XRELATIVE' 

3D 

To  specify  the  X coordinates  with  respect  to  the 

XREPEAT' 

3D 

current  beam/pen  position.  Y and  Z components 
are  to  be  specified  with  respect  to  the  origin  of  the 
current  coordinate  system 

To  indicate  that  one  set  of  X valves  is  provided 

'XYAXES' 

'XYABSOLUTE' 

3D 

which  will  be  reused  for  every  curve  in  higher  level 
graphing 

The  X and  Y axes  be  drawn  for  high  level  graphing 
To  specify  the  X and  Y coordinates  with  respect  to 

'XYCOORDINATES' 

'XYLOGARITHMIC' 

3D 

the  origin  of  the  current  coordinate  system  for  the 
indicated  components.  Z components  are  to  be 
specified  with  respect  to  the  current  beam/pen 
position 

To  specify  that  the  data  printed  by  UPRINT/ 
UWRITE  is  in  the  form  of  an  (X,Y)  coordinate  pair. 
Logarthmic  X and  Y plotting,  linear  Z plotting 

XYPLANE 

3D 

Labels  are  to  be  drawn  in  the  plane  formed  by  the 

'XYRELATIVE' 

3D 

X and  Y axes 

To  specify  the  X and  Y components  with  respect  to 

XYVIEW' 

3D 

the  current  beam/pen  position.  Z components  are 
to  be  specified  with  respect  to  the  origin  of  the 
current  coordinate  system 

To  view  plane  formed  by  X and  Y axes 

XYZAXES 

3D 

All  three  axes  are  to  be  drawn  for  higher  level 

XYZCOORDINATES' 

3D 

graphing 

Text  printed  by  U3PRNT /U3WRIT  to  be  in  form  of 

XYZLOG' 

3D 

(X.Y.Z)  triplet 

Applies  logamithmic  transforms  to  all  three  com- 

XYZVIEW' 

3D 

ponents 

To  view  all  three  axes 

'XYZb' 

3D 

To  set  the  rotation  application  order  as  indicated 

XYCOORDINATES' 

XZABSOLUTE' 

3D 

UPRINT/UWRITE  output  in  (X,Y)  coordinate  format 
To  specify  the  X and  Z coordinates  with  respect  to 

XZAXES' 

3D 

the  origin  of  the  current  coordinate  system  for  the 
indicated  components  Y components  are  to  be 
specified  with  respect  to  the  current  beam  posi- 
tion 

The  X and  Z axes  are  to  be  drawn  for  higher  level 

XZEROYEDGEAXIS' 

XZLOGARITHMIC 

3D 

graphing 

The  X axis  adjacent  to  boundary  of  display  area 
Applies  Logarithmic  transformation  to  X and  Z 

'XZPLANE' 

3D 

components 

Label  plane  to  be  plane  formed  by  X and  Z axis 

'XZRELATIVE' 

3D 

To  specify  the  X and  Z components  with  respect  to 

'XZVIEW' 

3D 

the  current  beam/pen  position.  Z components  are 
to  be  specified  with  respect  to  the  origin  of  the 
current  coordinate  system 

To  view  the  plane  formed  by  the  X and  Z axes 

XZYb' 

3D 

To  set  the  rotation  application  order  as  indicated 

NOTE:  b - is  a blank  or  space 
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'YABSOLUTE' 

3D 

Y coordinates  are  specified  with  respect  to  the 

Y ALPHANUMERIC' 

'YAXIS' 

YBOTHLABELS' 

'YCONSTANT' 

3D 

origin  of  the  current  coordinate  system  for  the 
indicated  units.  X and  Z components  are  specified 
with  respect  to  the  current  beam/pen  position 

Y axis  alphabetic  label 

The  Y axis  to  be  drawn  for  high  level  graphing 

Y axis  having  alphabetic  and  numeric  labels 

To  indicate  that  the  Y component  does  not  vary 

'YEARLY' 

YEDGEXZEROAXIS' 

'YELLOW' 

'YLOGARITHMIC' 

'YNEGATIVE' 

3D 

during  the  drawing  of  any  curve 

Time  series  axis  scale  in  yearly  intervals 

The  Y axis  at  edge  of  graph 

Switch  to  pen  color  yellow 

Logarithmic  Y plotting 

Negative  Y direction  represents  up  in  3D  graphics 

'YNUMERIC 

'YPOSITIVE' 

3D 

Y axis  numeric  label 

Positive  Y direction  represents  up  in  3D  graphics 

YRELATIVE' 

3D 

Y coordinates  are  specified  with  respect  to  the 

'YREPEAT' 

3D 

current  beam/pen  position  for  the  indicated  com- 
ponents X and  Z components  are  to  be  specified 
with  respect  to  the  origin  of  the  current  coordinate 
system 

To  indicate  that  one  set  of  Y valves  is  provided 

YXZb' 

3D 

which  will  be  reused  for  every  curve  in  higher  level 
graphing 

To  set  the  rotation  application  order  as  indicated 

'YZABSOLUTE' 

3D 

Y and  Z coordinates  are  specified  with  respect  to 

YZAXES' 

3D 

the  origin  of  the  current  coordinate  system  for  the 
indicated  under  X components  are  specified  with 
respect  to  the  current  beam/pen  position 

The  Y and  Z axes  to  be  drawn  for  higher  level 

'YZPLANE' 

3D 

graphing 

Label  plane  to  be  plane  formed  by  Y and  Z axes 

YZEROXEDGEAXIS' 

'YZLOGARITHMIC' 

3D 

The  Y axis  adjacent  to  boundary  of  display  area 
Applies  logarithmic  transformations  to  Y and  Z 

'YZRELATIVE' 

3D 

components 

Y and  Z coordinates  to  be  specified  with  respect  to 

'YZVIEW' 

3D 

the  current  beam/pen  position  for  the  Y and  Z 
components,  and  tne  X component  to  be  specified 
with  respect  to  the  current  beam/pen  position  for 
the  Y and  Z components  and  the  X component  to 
be  specified  with  respect  to  the  origin  of  the 
current  coordinate  system 

To  view  the  plane  formed  by  the  Y and  Z axes 

'YZXb' 

3D 

To  set  the  rotation  application  order  as  specified 

ZABSOLUTE' 

3D 

Z coordinates  to  be  specified  with  respect  to  the 

'ZALPHANUMERIC' 

3D 

origin  of  the  current  coordinate  system  for  the 
indicated  component.  X and  Y components  are  to 
be  specified  with  respect  to  the  current  beam/pen 
position 

Alphanumeric  labels  to  be  drawn  for  higher  level 

ZAXIS' 

3D 

drawing 

Z axis  is  to  be  drawn  for  higher  level  graphing 

ZBOTHLABELS' 

3D 

Both  numeric  and  alpnanumeric  labels  to  be 

'ZCLIP' 

3D 

drawn  for  highe'  level  drawing 

Clip  in  Z direction 

’ZCONSTANT' 

3D 

To  indicate  that  the  Z component  does  not  vary 

ZEROAXES’ 

NOTE:  b - is  a blank  or  space 

— 

during  the  drawing  of  any  curve 

X and  Y axes  adjacent  to  boundary  of  display  area 
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ZLOGARITHMIC'  3D  Applies  logarithmic  transform  to  Z component 

ZNEGATIVE'  3D  Negative  Z axis  represents  up  direction  in  3D 

graphics 

’ZNUMERtC'  3D  Numeric  Z labels  to  be  drawn  tor  high  ievel 

graphing 

'ZPOSITIVE'  3D  Positive  Z axis  represents  up  direction  in  3D 

graphics 

ZRELATIVE'  3D  Z coordinates  are  to  be  specified  with  respect  to 

the  current  beam/pen  position.  X and  Y compo- 
nents are  to  be  specified  with  respect  to  the  origin 
of  the  current  coordinate  system 

ZREPEAT'  3D  To  indicate  that  one  set  of  Z values  is  provided 

which  will  be  reused  for  every  curve  in  higher  level 
graphing 

'ZXYb'  3D  To  set  the  rotation  application  order  as  indicated 

'ZYXb'  3D  To  set  the  rotation  application  order  as  indicated 

'12HOUR'  Twelve  hour  time  axis 

'13WEEK'  Thirteen  week  time  axis 

'2DCOORDINATES'  3D  To  specify  A coordinate  terminator  in  which  two 

components  are  listed  (This  option  is  indepen- 
dent of  the  text  coordinate  options  of  XYCOORD- 
INATES'  and  'XYZCOORDINATES') 

'24HOUR'  Twenty  four  time  axis 

'3DCOORDINATE'  3D  To  specify  a coordinate  terminator  in  which  all 

three  components  are  listed  (This  option  is 
independent  of  the  text  coordinate  option  of 
'XYCOORDINATES'  and  XYZCOORDINATES') 
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UPSET  OPTIONS 


Option  Name 

'ANGLE  OF  TEXT' 

'ATTENTION  QUEUE  SIZE'* 

'ATTITUDE' 

BACKGROUND  COLOR' 

'BASE  OF  LOGARITHMS' 

BRIGHTNESS' 

CHARACTER' 

'COLOR 

COPY  DELAY' 

DESCRIPTOR  FILE'* 

•means  not  implemented 


Value 

Is  an  angular  value  which  specifies  the  angle  of 
the  text  string  in  relation  of  the  current  X axis. 
Default  value  is  0. 

An  integer  indicating  the  number  of  words 
provided  in  the  attention  queue.  Default  is  0. 

Is  an  angular  value  which  specifies  the  orienta- 
tion of  the  up  direction  axis  with  the  sides  of  the 
window.  Default  value  is  0.  Meaning  that  the  up 
direction  is  parallel  whth  the  left  and  right 
window  boundaries  and  pointing  towards  the 
top  of  the  window 

Is  an  integer  which  specifies  the  color  index 
within  the  color  table  for  colored  backgrounds. 
Values  0-7  are  predefined  to  represent  black, 
white,  red,  green,  yellow,  blue,  magenta,  and 
cyan,  respectively.  Default  color  is  black  or 
none. 

Is  a positive  value  which  specifies  the  base  of 
the  logarithms  used  to  perform  logarithmic 
scaling  Default  base  is  1 0.  This  option  sets  the 
specified  base  along  each  coordinate  compo- 
nent. 

Is  a value  between  0 and  100.  percent  indicat- 
ing the  position  in  the  range  of  possible  line 
intensity  settings  from  dimmest  to  brightest. 
Default  brightness  is  60%. 

Is  a Hollerith  character  which  becomes  the 
current  system  character.  The  default  system 
character  is  ’*’. 

Is  an  integer  which  specifies  the  color  index 
within  the  color  table.  Values  0-7  are  pre- 
defined to  represent  black,  white,  red,  green, 
yellow,  blue,  magenta,  and  cyan,  respectively. 
Default  color  is  device-dependent. 

Is  a value  which  indicates  the  number  of 
seconds  of  delay  required  during  generation  of 
a hard  copy  Default  value  is  device-dependent 
and  is  preset  to  the  value  required  by  the 
selected  device 

Is  a Fortran  file  number  representing  the  file 
containing  the  font  descriptors.  Default  is  zero 
indicating  no  font  file  specified 
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DISTANCE' 

FONT  NAME'* 

GREYSCALE' 

GRID  SPECIFICATION' 

'HORIZONTAL  SIZE' 

INPUT  FILE' 

'LABELbROTATION' 

'LIBRARY  FILE' 

LOWER' 

MARKER  INDEX' 

ORIENTATION' 


OUTPUT  FILE' 

'POLYNOMIAL  DEGREF.' 

'PRECISION' 

•means  not  Implemented 


Is  a value  measured  from  the  current  view  plane 
distance  base  specifying  the  position  of  the 
view  (projection)  plane.  The  default  is  0. 
measured  from  the  view  site. 

Is  a Hollerith  string  indicating  the  desired 
character  font.  Default  is  GCS'  which  is  the 
most  efficient  font. 

Is  a value  indicating  a particular  grey  level  for 
terminals  which  support  multiple  grey  scales 
rather  than  colors. 

Is  a value  containing  a dash  specification  to  be 
used  when  generating  grid  axes.  Default  is  0. 
which  indicates  a solid  line  should  be  used. 

Indicates  the  width  of  a software  character 
position  in  current  user  units.  Default  is  5 
virtual  units. 

Is  a Fortran  file  number  indicating  which  file  will 
be  used  to  obtain  graphics  input.  The  default  is 
set  to  the  appropriate  computer-system  depen- 
dent file. 

is  the  number  of  angular  units  the  axes  Ibaels 
are  to  be  rotated  around  the  axes. 

Is  a Fortran  file  number  indicating  which  file 
shouid  be  used  by  the  GCS  structure  and 
segmentation  facilities  as  a random  work  file. 
Default  is  0.  indicating  no  file  has  been 
provided. 

Is  a Hollerith  character  which  will  be  used  by 
GCS  as  the  indication  to  shift  to  lower  case. 
Default  character  is  '>'. 

Is  an  integer  value  selecting  a marker/symbol. 
Default  marker  symbol  is  0.  indicating  a point. 

Is  an  angular  value  indicating  the  display 
orientation  of  GCS  created  software  symbols 
and  figures  such  as  software  characters,  poly- 
gons, and  rectangles.  Default  orientation  is  0. 

Is  a Fortran  file  number  indicating  which  file  will 
be  used  for  sending  graphics  output  to  the 
display  device  The  default  is  set  to  the 
appropriate  computer  system  dependent  file. 

Specifies  the  degree  of  the  polynomial  to  be 
created  in  calculating  a least  squares  fit 
through  a collection  of  points.  Default  value  is 
5. 

Specifies  the  number  of  significant  digits  to 
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READFILE' 

ROTATION' 

'SCALEFACTOR' 

SCRIPTLEVEL' 

SETDASH' 

'SIZE' 

SLANTANGLE' 

SPAN  ANGLE' 

SPECIFICATION  UNITS' 

SPEED' 

'START  ANGLE' 

STRUCTURE  TABLE  SIZE' 

SUBSCRIPT  CHARACTER' 

SUPERSCRIPT  CHARACTER’ 


appear  when  displaying  eal  numbers  Default 
value  is  4. 

Is  a Fortran  file  number  indicating  which  file  will 
be  used  to  obtain  non-graphic  input.  The 
default  is  set  to  the  appropriate  computer 
system  dependent  file 

Same  as  ORIENTATION'. 

Specifies  a scale  to  be  applied  to  GCS-created 
geometric  figures  such  as  polygons  and  rec- 
tangles. 

Is  an  integer  value  indicating  the  scripting  level 
to  be  set  for  textual  output.  Default  value  is  1. 

Specifies  the  characteristics  of  the  dashed 
lines  to  be  plotted  by  UPEN.  Default  value  is  56. 

Is  a positive  integer  value  which  sets  hardware 
character  sizes.  Values  of  1 through  4 corre- 
spond to  USET  options  'SMALL',  'MEDIUM', 
'LARGE,  and  'EXTRA  LARGE'  respectively. 
Default  value  is  1 for  'SMALL'  characters. 

Is  an  angular  value  indicating  the  amount  of 
slant  from  the  vertical  for  italicized  software 
characters  Default  value  is  approximately  18 
degrees. 

Is  an  angular  value  indicating  the  portion  rf  a 
circle  to  be  occupied  by  the  pie  chart  Default 
value  is  360.  degrees. 

Is  a positive  value  indicating  the  number  of 
specification  units  contained  in  device  space 
for  all  directions.  Default  value  is  1000. 

Specifies  the  speed  of  the  communication  line 
in  characters  per  second  Default  value  is 
system  dependent. 

Is  an  angular  value  indicating  the  starting 
position  of  the  first  wedge  of  the  pie  chart. 
Default  value  is  0. 

Is  an  integer  value  indicating  the  number  of 
words  in  the  user  provided  structure  table 
Default  value  is  1 00. 

Is  a Hollerith  character  which  will  be  used  to 
decrease  the  scripting  level  by  1.  Default 
subscript  character  is  ' '. 

Is  a Hollerith  character  which  will  be  used  to 
increase  the  scripting  level  by  1.  Default 
superscript  character  is  ' '. 


means  not  implemented 


SZMARKER' 


Is  a value  in  current  device  units  which  spec- 
ifies the  size  of  software  generated  markers. 
Default  value  is  device-dependent. 


'TABHORIZONTAL' 

TABVERTICAL' 

TERMINATOR' 

'TICINTERVAL' 

'TICLENGTH' 


Is  an  array  of  10  elements  containing  10  tab 
positions  in  current  device  units.  Default  value 
has  all  tab  stops  set  to  zero. 

Is  an  array  of  1 0 elements  containing  1 0 vertical 
tab  positions  in  current  device  units.  Default 
value  has  all  tab  stops  set  to  zero. 

Is  a Hollerith  character  which  will  be  used  as 
the  GCS  string  terminator  character.  Default 
value  is  ' ' 

Specifies  the  distance  in  current  user  units 
between  tic  marks  of  a UPEN  created  tic  line 
Default  value  is  1 0. 


TICMINUS' 


TICPLUS' 


'TICX' 


'TICY' 

TICZ' 

UPPER' 

VERT'CAL  SIZE 

WIDTH’ 

WRITE  FILE' 


XBASE  OF  LOGS' 

'XLABEL' 


Specifies  in  current  units  the  size  of  that  portion 
of  a tic  mark  which  lies  on  the  clockwise  side  of 
the  tic  line.  Default  value  is  .05  inches. 

Specifies  in  current  units  the  size  of  that  portion 
of  a tic  mark  which  lies  onthe  clockwise  side  of 
the  tic  line.  Default  value  is  .05  inches. 

Specifies  the  distance  between  tic  marks  or 
grid  lines  along  X axes  Default  value  is  0. 
indicating  that  a 'nice'  number  should  be 
chosen. 

Is  the  same  as  TICX  for  Y axes 

Is  the  same  as  TICX'  for  Z axes 

Is  a Hollerith  character  which  will  te  used  by 
GCS  as  the  indication  to  shfit  to  upper  case. 
Default  character  is  '<'. 

Indicate  the  height  of  a software  character 
position  in  current  user  units.  Default  value  is 
seven  virtual  units. 

Is  a value  in  current  units  of  the  width  of  a line. 
Default  value  is  0.  indicating  a thin  line. 

Is  a Fortran  file  number  indicating  which  file  will 
be  used  to  generate  non-graphic  output.  The 
default  is  set  to  the  appropriate  computer 
system  dependent  file. 

Is  a positive  value  which  specifies  the  base  for 
logarithmic  scaling  along  the  X component. 
Default  value  is  1 0 

Specifies  the  alphanumeric  label  to  be  dis- 
played along  X axes  Default  value  is  X '. 


•means  not  Implemented 
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'XPERCENT' 


'XROTATION' 

'X8CALE' 

'XSIZE' 

'XSPECIFICATION  UNITS' 

'YBASE  OF  LOGS' 

'YBASE  OF  LOGS' 

'YLABEL' 

'YPERCENT' 

'YROTATION' 

'YSCALE' 

'YSIZE' 

'YSPECIFICATION  UNITS' 

'ZBASE  OF  LOGS' 

'means  not  implemented 
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Is  a value  specifying  the  portion  of  the  width  of  a 
software  character  position  to  be  occupied  by  a 
character.  Default  value  is  .65  indicating  65%  of 
the  width. 

Is  an  angular  value  indicating  the  amount  of 
rotation  around  the  X axis  for  UINVOK  structure 
invocations.  Default  value  is  0. 

Is  the  scale  factor  to  be  applied  along  the  X axis 
for  UNIVOK  structure  invocations.  Default  value 
is  1. 

Is  the  size  of  hardware  or  simulated  hardware 
character  positions  in  current  device  units. 
Default  value  is  device -dependent  and  corre- 
sponds to  'SMALL'  hardware  character  size. 

Is  a positive  value  indicating  the  number  of  X 
specification  units  in  device  space.  Default 
value  is  1000. 

Is  a positive  value  indicating  the  number  of  X 
specification  units  in  device  space.  Default 
value  is  1 000. 

Is  a positive  value  which  specifies  the  base  for 
logarithmic  scaling  along  the  Y component. 
Default  value  is  10. 

Specifies  the  alphanumeric  label  to  be  dis- 
played along  the  Y axis.  Default  value  is  'Y 

Is  a value  specifying  the  portion  of  the  height  of 
a software  character  position  to  be  occupied  by 
a character.  Default  value  is  .65  indicating  65% 
of  the  height. 

Is  an  angular  value  indicating  the  amount  of 
rotation  around  the  Y axis  for  UNIVOK  structure 
invocations.  Default  value  is  0. 

Is  the  scale  factor  to  be  applied  along  the  Y axis 
for  UNIVOK  structure  invocations.  Default  value 
is  1. 

Is  the  size  of  hardware  or  simulated  hardware 
character  positions  in  current  device  units. 
Default  value  is  device-dependent  and  corre- 
sponds to  'SMALL'  hardware  character  size. 

Is  a positive  value  Indicating  the  number  of  Y 
specification  units  in  device  space.  Default 
value  is  1 000. 

Is  a positive  value  which  specifies  the  bass  for 
logarithmic  scaling  along  the  Z component. 
Default  value  is  1 0. 
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Specifies  the  alphanumeric  label  to  be  dis- 
played along  the  Z axis.  Default  value  is  'Z 

Is  an  angular  value  indicating  the  amount  of 
rotation  around  the  Z axis  for  UINVOK  structure 
invocations.  Default  value  is  0. 

Is  the  scale  factor  to  be  applied  along  the  Z axis 
for  UINVOK  structure  invocations.  Default  value 
is  1. 

I t 


'means  not  implemented 


ZLABEL' 

'ZROTATION' 

ZSCALE' 


APPENDIX  D 

QC8  DEFAULT  CONDITIONS 


I his  appendix  addresses  those  options  which  are  present  in  the  Graphics  Status  Area 
as  default  options.  After  a call  to  Subroutine  USTART,  the  Graphics  Compatibility 
System  is  set  to  the  default  conditions,  as  Indicated.  The  default  options  can  be  divided 
into  two  groups:  Basic  Plotting  Options  and  High  Level  Plotting  Options. 


I.  Default  Basic  Plotting  Options 

Plotting  is  done  in  RECTANGULAR’  and  'ABSOLUTE'  coordinates  on  the  SYSTEM' 
coordinate  axis.  The  ’USER'  coordinate  axes  are  identical  to  the  system  axis.  Plotting  is 
done  in  'VIRTUAL'  space  with  a virtual  window  whose  limits  are  from  0.0  to  1 00  0 in  the  X 
direction,  and  from  0.0  to  100.0  in  the  Y direction.  The  virtual  window  is  mapped  into  a 
display  area  which  is  the  largest  square  area  on  the  device  display  surface.  The  right 
hand  edge  of  the  square  corresponds  to  the  right  edge  of  the  display  surface,  and  the  top 
edge  of  the  square  corresponds  to  the  top  edge  of  the  display  surface. 

Character  output  in  GCS  will  be,  by  default,  in  ’HARDWARE'  character  format,  of  type 
'GOTHIC'  and  of  'MEDIUM'  size.  If  'SOFTWARE'  characters  are  requested  via  USET  then 
the  default  horizontal  size  is  five  (5.0)  virtual  units,  and  the  default  vertical  size  is  seven 
(7.0)  virtual  units. 

By  default,  angular  units  for  angular  specifications  are  in  'DEGREES'.  If  the  user 
switches  to  'DEVICE'  space,  then  all  length  or  distance  units  (i.e.  rectangular 
coordinates)  are  in  terms  of  'INCHES'.  The  default  alphanumeric  margins  are  the 
boundaries  of  the  plotting  surface.  For  alphanumeric  I/O  through  GCS  (i.e.  from  UPRINT 
or  UREAD),  the  data  will  be  assumed  to  be  In  'TEXT'  mode.  The  alphanumeric  output 
defaults  to  the  'PLOT'  device  if  possible,  and  any  graphic  output  will  go  to  all  devices  in  a 
cluster.  Graphic  input  is  from  the  primary  input  device;  the  number  of  digits  of  precision 
for  numeric  output  is  four  (4);  and  GCS  detected  errors  are  signalled  as  they  occur. 

A line  which  is  drawn  by  a subroutine  in  GCS  is  considered  to  consist  of  two  parts;  a line 
type  and  a line  terminator.  The  line  type  may  be  solid  (visible),  ticked,  null  (invisible), 
dashed,  or  alphanumeric.  The  line  may  be  terminated  by  an  arrow,  a back  arrow,  double 
arrows,  a character,  a point,  a symbol,  a set  of  coordinate  values,  or  nothing  at  all.  The 
default  line  type  in  GCS  is  'SOLID'  with  'NULL'  termintors  ('LNULL').  If  'TICLINES'  are 
requested  via  USET  option,  then  the  default  tic  interval  is  ten  (1 0.0)  virtual  units.  It  is  the 
user's  responsibility  to  insure  that  the  tic  interval  is  appropriate  if  he  switches  to 
'DEVICE'  space  or  alters  the  default  virtual  window  setting  or  the  default  display  area 
setting.  If  'DASHLINES'  are  requested,  then  the  default  dash  specification  (56.)  will 
result  in  a dashed  line  which  is  alternately  light  and  dark,  in  icrements  of  approximately 
0.075  Inches.  If  a ’CHARACTER'  line  terminator  is  requested  but  no  character  is 
specified  by  way  of  Subroutine  UPSET,  then  the  character  asterisk  (*)  is  used.  Similarly, 
the  asterisk  is  used  to  compose  the  line  type  if  'ALPHANUMERIC'  lines  are  requested. 

For  3D  operations,  the  viewing  environment  is  set  up  to  simulate  a 2D  only  environment. 
The  view  point  is  located  at  (0..0..1 50.),  the  view  site  is  at  (0..0..0.)  and  the  view  plane  is 
located  at  the  view  site.  The  system  coordinate  system  is  considered  to  be  'RIGHT- 
HANDED'  with  the  'ZPOSITIVEAXIS'  representing  up.  Note  that  since  the  view  is  down 
the  Z axis,  the  up  direction  degenerates  to  'YPOSITIVE'.  The  Z axis  clipping  planes  are 
150.  (hither  plane)  and  1.0E+30  (yon  plane)  with  'NOZCLIPPING'. 


II.  Default  High  Level  Plotting  Option* 

For  each  call  to  UPLOT  or  UPLOT1,  the  data  valuaa  which  repreaent  the  curve*  are 
examined,  and  a NEWSCALE'  la  created.  UAXIS  will  be  invoked  to  create  'XYAXES'. 
The  data  values  will  be  examined,  appropriate  limits  tor  the  established.  Numeric  labels 
only  will  be  output  for  the  X axis  and  the  Y axis.  The  axes  will  be  positioned  at  the  'EDGE' 
of  the  plot.  Both  the  X axis  and  the  Y axis  will  be  drawn  In  a linear  coordinate  space.  The 
axis  lines  will  be  ticked.  If  a time  series  axis  is  plotted  by  Invoking  Subroutine  UTAXIS, 
the  default  interval  for  the  X axis  will  be  'DAILY'.  No  curves  will  be  fit  to  the  data  values, 
but  If  FITPOLYNOMIAL’  Is  requested,  then  subroutine  UPLOT  will  attempt  to  fit  a fifth 
degree  poynomial  to  the  data. 


III.  Summary 


COORDINATE  SPACE: 
COORDINATE  TYPE: 
COORDINATE  SYSTEM: 
COORDINATE  AXIS: 


'VIRTUAL' 

'ABSOLUTE' 

'RECTANGULAR' 

'SYSTEM' 


VIRTUAL  WINDOW. 


0.0  TO  100.0  X DIRECTION 
0.0  TO  100.0  Y DIRECTION 


DISPLAY  AREA. 


Largest  square  area  which  Is  right-up  on  the 
display  surface  of  the  device. 


DEVICE  SPACE  UNITS: 
ANGULAR  UNITS. 

LINE  TYPE: 

SYSTEM  CHARACTER: 

TIC  INTERVAL. 

DASH  SPECIFICATION: 

CHARACTER  TYPE: 
CHARACTER  FONT: 
CHARACTER  SIZE: 

SOFTWARE  CHARACTER  SIZE: 


'INCHES' 

DEGREES’ 

'LINE'  or  'LNULL' 
asterisk  (*) 

10.0  virtual  units 
56. 

HARDWARE' 

GOTHIC' 

MEDIUM' 

5.0  virtual  units  horizontal 

7.0  virtual  units  vertical 


INPUT/OUTPUT  FORMAT: 
ALPHANUMERIC  MARGINS: 
OUTPUT  ROUTE: 

OUTPUT  DISTRIBUTION. 
GRAPHIC  INPUT: 

DIGITS  OF  PRECISION: 
ERROR  HANDLING. 


'TEXT' 

Device  display  surface  boundaries. 
'PLOTDEVICE' 

'ALLDEVICES' 

Primary  input  device 

4 

IMMEDIATE  OUTPUT’ 


AXIS  SCALING: 

AXIS  LABELING: 

AXIS  POSITIONING: 
AXIS  TYPE: 

AXIS  EXISTENCE: 
AXIS  COORDINATES: 


'AUTOSCALE' 

XNUMERICLABEL' 

YNUMERICLABEL' 

EDGEAXIS' 

'TIC  AX  IS' 

XYAXES' 

LINXAXI3’ 

'LINYAXI8' 


TIME  SERIES  AXIS  SCALE:  'DAILY' 
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USET  OPTIONS  BY  CLASS 


Coordinate  Type 

ABSOLUTE'  'INCREMENTAL'  'RIGHTHANDED'  'ZABSOLUTE' 

RELATIVE'  XYRELATIVE'  YABSOLUTE'  ZRELATIVE' 

'XABSOLUTE'  'XZABSOLUTE'  YRELATIVE' 

'XRELATIVE'  XZRELATIVE'  YZABSOLUTE' 

XYABSOLUTE'  'LEFTHANDED'  'YZRELATIVE' 

Coordinate  Type 

'RECTANGULAR'  'CYLINDRICAL'  'LOGOBJECT'  XYZLOGARITHMIC' 

'POLAR'  'SPHERICAL'  'LOGSYSTEM'  XZLOGARITHMIC' 

•LOGARITHIMC'  'XLOGARITHMIC'  'LOGUSER'  YZLOGARITHMIC’ 

YLOGARITHMIC'  'XYLOGARITHMIC'  'NOLOGARITHMS'  ZLOGARITHMIC' 

Coordinate  Space 

VIRTUAL'  SPECIFIC' 

DEVICE’  DISPLAY' 

Device  Space  Unite 

'INCHES' 

CENTIMETERS' 

'FONTUNITS' 

PERCENTUNITS' 

RASTERUNITS' 

Angular  Unite 

DEGREES'  GRADS' 

'RADIANS'  ’MILS' 

PIRADIANS' 

Frame  Composition 

'INVISIBLE' 

VISIBLE' 

Line  Type 

LINE'  'LNULL'  NOLINE'  LBACKARROW' 

DASH'  DNULL'  NOMARK'  'LCOORDINATE' 

'POINT'  NPOI'  NNULL'  NO  LINE' 

TICLINE'  TNULL'  LARROW'  NO  MARK' 

CHARACTER'  BACKARROWLINE'  LDOUBLEARROW'  'DIMENSIONLINE' 

SYMBOL'  'COORDINATELINE'  MOVE'  NSYMBOL' 

ALPHANUMr  .rC’  NCHA'  'ARROWLINE'  ANULL' 

'DOUBLEARROWLINE' 


Lines  that  are  drawn  by  GCS  are  composed  on  a line  type  and  a line  terminator.  A large 
number  of  line  types  and  terminators  are  possible.  The  specification  is  composed  by 
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combining  the  first  letter  of  the  line  type  with  the  name  of  the  terminator.  The  following 
tables  illustrate  the  possible  linetypes  and  terminators: 


LINE  TYPE  FIRST  LETTER 

LINE 
DASH 

ALPHANUMERIC 
NULL  (INVISIBLE) 

TICLINE 

Line  Terminators 

NULL  (NO  TERMINATORS) 

CHARACTER 
SYMBOL 
COORDINATE 
POINT 
ARROW 
BACKARROW 
DOUBLEARROW 

Line  Repeatability 

UNINTERRUPTED' 

GAPPED' 

Curve  Approximation 

CONTINUOUS' 

SEGMENTED' 

Blink  Rate 

'NOBLINK' 

FASTBLINK' 

SLOWBLINK' 

Color 

WHITE'  'BLUE' 

BLACK'  RED' 

GREEN'  'MAGENTA' 

CYAN'  YELLOW' 

Intensity 

DIM' 

BRIGHT' 

Coordinate  Axis 

SYSTEMAXIS' 

USERAXIS' 

Coordinate  Axis  Composition 

WORKINGAXIS' 

REFERENCEAXIS' 


L 

D 

A 

N 

T 
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Character  Format 

'GOTHIC' 

UPPERCASE' 

ITALIC' 

LOWERCASE' 

Character  Size 

'MEDIUM' 

'SMALL' 

LARGE' 

EXTRALARGE' 

Device  Routing 

PLOTDEVICE' 

MESSAGEDEVICE' 

Device  Selection 

'ALLDEVICES' 

PRIMARYDEVICE' 

ALTERNATEDEVICE' 


Graphic  Input 


KEYBOARD' 

CURSORS' 

LIGHTPEN' 

'JOYSTICK' 

BALL' 

MOUSE' 


ECHO' 

'NOECHO' 

ORMODE' 

ANDMODE' 

PROCEED' 

WAIT' 


Character  Type 

HARDWARE' 

SOFTWARE' 

Error  Conditions 

'ERROR  OUTPUT’  DUMP'  'NOABORT' 

SUPPRESSERRORS'  ABEND'  'NODUMP' 

DEFERERRORS'  ABORT'  'NOTRAIL' 

Structure  Definition 

BUILD' 

'NOBUILD' 

Structure  Building 

EXECUTE' 

'NOEXECUTE' 

Structure  File  Manipulation 
APPEND'  REPLACE' 

E-3 


TRAIL' 


L 


IGNORE' 

MULTIPLE' 


'REWIND' 

SINGLE' 


Structure  Editing 

COMPRESSED' 

EXPANDED' 

Axis  Scaling 

'AUTOSCALE' 

FULLSCALE' 

OWNSCALE' 

Axis  Seals  Existence 

NEWSCALE' 

OLDSCALE' 

Segment  Pickabllity 

DESENSITIZE' 

SENSITIZE' 


Axis  Existence 


XYAXES' 

XAXIS' 

YAXIS' 

YZAXES' 


'NOAXES' 

XYZAXES' 

XZAXES' 

ZAXIS' 


Axis  Positioning 

EDGEAXIS' 

ZEROAXIS' 

'PENAXIS' 

XEDGEYZEROAXIS'  YEDGEXZEROAXIS' 

XZEROYEDGEAXIS'  YZEROXEDGEAXIS' 

Numeric  Labels 

BESTFORMAT' 

FORMAT' 

GFORMAT' 


Label  Positioning 

NEGATIVESIDE'  PERPENDICULARLABELS' 

PARALLELLABELS'  POSITIVESlDE' 

XYPLANE'  'XZPLANE' 

YPLANE' 


X Axis  Type 

LINAXIS' 

LOGAXIS' 

LNAXIS’ 


LINYAXIS' 

'LOGYAXIS' 

LNYAXIS' 


X Axis  Labels 

XNUMERIC' 

’XALPHANUMERIC' 

'XBOTHLABELS' 

'NOXLABEL' 

Y Axis  Labels 

'YNUMERIC' 

'YALPHANUMERIC' 

NOYLABEL' 

'YBOTHLABELS' 

Z Axis  Type 

ZLOGARITHMIC' 

Z Axis  Label 

ZNUMERIC' 

^ALPHANUMERIC' 

NOZLABEL' 

ZBOTHLABELS' 

Axis  Type 

TICAXIS' 

PLAINAXIS' 

GRIDAXIS' 

Three  Dimensional  Windowing 

SITEPOINT' 

'VIEWPOINT' 

Windowing 

CWINDOWING' 
'NOWINDOWING' 
RWINDOWINE' 

Text  Output 

ACENTER' 

'NOCENTER' 

NOSCRIPT’ 
XYZCOORDINATES' 
XYCOORDINATES' 
'2DCOORDINATES' 


'NOSUBSCRIPTING' 

SUBSCRIPT' 

'SUPERSCRIPT' 

INTEGER' 

TEXT' 

'3DCOORDINATES' 


'UPPERCASE' 

HORIZONTAL' 

VERTICAL' 

'REAL' 


Mcnuing  Option 


EXTENDEDMENU' 

STANDARDMENU' 

Origin  Inclusion 

'NOORIGIN' 

ORIGIN 

PENORIGIN 


Davies  Space  Clipping 

'NOCLIP' 

ZCLIP' 


High-Level  Plotting  Option 

'NONUNIFORM' 

NOSTOPDISTORTION' 

STOPDISTORTION' 

UNIFORM' 

Coordinate  Repeat  Option 

'NOREPEAT'  'NOZREPEAT'  'YCONSTANT' 

NOXREPEAT'  'XCONSTANT'  YREPEAT' 

NOYREPEAT'  XREPEAT'  ZCONSTANT' 

Transformation  Type 

ORTHOGONAL' 

PERSPECTIVE' 


Axis  Orientation 

XNEGATIVE'  YNEGATIVE'  ZNEGATIVE' 

'XPOSITIVE  YPOSITIVE'  ZPOSITIVE' 


Three  Dimension  Viewing 

XYVIEW’  XZVIEW' 

XYZVIEW'  'YZVIEW' 


Rotation  Application  Order 


XYZ'  YZX' 

XZY'  ZXY' 

YXZ'  XYX' 

Time  Axis  Scaling 

1 2Hour 
1 3Week 
24Hour 
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UQUERY  OPTIONS 


Type 

Query  Name 

Raturna  (Dafault  In  Paranthasas) 

USET 

ABUTTING' 

Page  abutting  mode  ('NONABUTTING') 

USET 

ACENTERING' 

Alphanumeric  centering  CNOCENTERING’) 

USET 

'ADJUSTMENT' 

3D 

Axis  view  adjustment  option  (plane  axis  plotted  on 
view  port  or  viewed  from  current  view  point) 
CXYZVIEW) 

USET 

ANGULARUNITS' 

Current  user  angular  units  ('DEGREES') 

USET 

'ANGLE  OF  TEXT' 

Current  angle  of  text  output  (0.) 

UPSET 

'ASPECTRATIO' 

3D 

Display  Surface  aspect  ratio 

UPSET 

'ATTENTION  QUEUE  SIZE' 

Attention  queue  size  (100.) 

UPSET 

'BACKGROUND  COLOR' 

Background  color  index  (Black-0 ) 

USET 

'BLENDMODE'* 

Color  Blending  mode  ( SUBTRACTIVE') 

USET 

'BLINKRATE' 

Blink  rate  ('NOBLINK') 

UPSET 

'BRIGHTNESS' 

Display  intensity  (60%) 

USET 

'BUILD' 

30 

Structure  build  mode  flag  ('NOBUILD') 

UPSET 

‘CHARACTER’ 

Current  system  character  as  Hollerith  string  (*) 

USET 

'CLIPPING' 

Device  space  clipping  Hag  CNOCLIP',  ‘CLIP’  or 
INVERTED) 

USE! 

COLOR' 

Current  color  index  (device  dependent) 

UPSET 

"COPY  DELAY' 

Copy  delay  time  (device  dependent) 

UPSET 

'CSPACING' 

Character  spacing  mode  ( HORIZONTAL  ) 

USET 

'CURVE' 

Current  curve  approximation  mode  ('CONTINUOUS'; 

UPSET 

DASH' 

Numeric  value  corresponding  to  current  dashline 
specification  (56.) 

USET 

DESCRIPTION' 

Current  axis  option  CTICAXES’) 

USET 

DETECTABILITY' 

Detectability  of  new  segments  ('DESENSITIZED') 

USET 

DIMENSION' 

3D 

2D  or  3D  coordinate  terminator  switch 
C2DCOORDINATES) 

UPSET 

DISTANCE' 

3D 

Distance  from  viewport  to  screen  plane  (150  ) 

USET 

EDIT' 

3D 

Data  structure  edit  mode  (’COMPRESS  ) 

USET 

'ERRORMODE' 

Error  presentation  (ERROR) 

USET 

EXECUTE' 

3D 

Structure  building  visability  ('EXECUTE') 

USET 

EXISTENCE' 

Current  axis  existence  option  CXYZAXES  ) 

UPSET 

FACTOR 

Scale  factor  for  GCS  created  software  symbols  (1 .! 

USET 

'FITMODE’ 

Curve  fitting  mode  for  autoplotting  ('NOFITTING') 

( 


■ 


i 
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USET 

FNAMING  MODE' 

Frame  naming  mode  ('FNAME') 

UPSET 

'FNTFILE  NUMBER'* 

Font  file  number  (0.) 

UPSET 

FONT  NAME’* 

Font  name  ('GCS') 

USET 

FORMAT' 

Text  number  format  for  numeric  labelling 
CBESTFORMAT) 

USET 

'GAPMODE' 

Cupped  line  mode  CUINTERRUPTED) 

UPSET 

GREYSCALE' 

Numeric  valve  Indicating  current  grey  level  (device 
dependent) 

UPSET 

GRID' 

3D 

Numeric  value  indicating  grid  axis  type  option  (0.) 

USET 

HANDEDNESS' 

3D 

Left  or  right  handed  coordinate  system 
CRIGHTHANDED) 

UPSET 

HARDWARE' 

Current  hardware  character  size  ('SMALL',  device 
dependent) 

UPSET 

HORIZONTAL' 

Current  horizontal  software  character  position  size 
(5.) 

UPSET 

'INFILE' 

Graphics  input  file  designation  (computer  system 
dependent) 

USET 

INPUT' 

Graphics  input  device  medium 

USET 

ITALICIZATION' 

Italicization  mode  ('NOITALICS') 

UPSET 

LABELANGLE' 

Label  angle  around  perpendicular  (0.) 

USET 

LETTERTYPE' 

Character  type  ( HARDWARE  ) 

UPSET 

LEVEL' 

3D 

Subscript/superscript  spacing  level  (1 .) 

UPSET 

LIBRARY' 

3D 

Data  structure  library  file  mode  (0.) 

UPSET 

LIMIT' 

3D 

Number  of  errors  before  automatic  stop.  0 means  no 
limit  (0.) 

USET 

LINEOPTION’ 

Current  line  option  setting  ( LNULL  ) 

UPSET 

LOWERCASE' 

Lowercase  shift  character  as  Hollerith  string  (’>’) 

USET 

LOGARITHMIC' 

3D 

Axes  selected  for  logarithmic  transform  (logarithmic 
transform  switch)  ('NOLOGSCALING') 

USET 

'LOGTIME  OF  APPLICATION' 

Time  of  application  of  logarithmic  scaling 
('LOGSYSTEM  COORDINATES') 

USET 

LOGTYPE' 

3D 

Flag  indicating  when  logarithmic  scaling  performed. 
('LOGSYSTEM'.  LOGUSER',  LOGOBJECT) 

USET 

MAPPINGTYPE' 

3C 

3D  to  2D  mapping  type  ('PERSPECTIVE') 

USET 

MENUTYPE' 

3D 

Menu  board  type  ( STANDARD') 

USET 

MERGE' 

3D 

Structure  merge  mode  switch  ('IGNORE') 

USET 

MESSAGEDEVICE' 

Destination  of  alphanumeric  I/O  CPLOTDEVICE’) 

USET 

MODE' 

Currant  coordinate  mode  ('ABSOLUTE') 

USET 

NUMERIC' 

3D 

Numeric  labels  parallel  or  perpendicular  to  axis 
('PARALLEL') 

U8ET 

ORDER' 

3D 

3D  coordinate  system  rotation  application  order 
(ZYX) 
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UPSET 

ORIENTATION' 

Angular  orientation  of  display  of  GCS  created 
symbols  (0.) 

USET 

ORIGIN' 

Forced  origin  switch  for  axis  scaling  ('ORIGIN') 

UPSET 

OUTFILE' 

File  number  of  graphics  output  file  (computer  system 
dependent) 

USET 

OUTPUT  DEVICE 

Graphical  output  destination  device  ('ALLDEVICES') 

USET 

PLANE' 

3D 

Axis  label  plane  CXYPLANE’) 

USET 

PLOTSCALE' 

Scale  option  ONEWSCALE') 

UPSET 

POLYNOMIALDEGREE' 

Current  degree  of  polynomial  fit  for  curve  fitting  (5.) 

USET 

POSITION' 

3D 

Current  axes  positioning  CEDGEAXES  ) 

UPSET 

PRECISION' 

Number  of  digits  of  precision  to  be  displayed  for  real 
numbers  (4.) 

USET 

PROJECTION  TYPE' 

T ype  of  projection  (PERSEPCTIVE) 

UPSET 

READ  FILE' 

File  designator  for  non-graphic  input  (computer 
system  dependent) 

USET 

REPEAT' 

3D 

Data  structure  invocation  option  ('SINGLE'  or 
REPEAT) 

USET 

REWIND' 

30 

Structure  tile  rewind  mode  ( REWIND  ) 

USET 

SCALE' 

Axis  scale  option  ( AUTOSCALE’) 

USET 

script; 

3D 

Subscript/superscript  control  CNOSCRIPT  ) 

USET 

SECURITY  LEVEL- 

Control  of  security  banners  ('UNSECURED') 

USET 

SENSITIVITY’ 

3D 

Light  pen  sensitivity  switch  ' DESENSITIZE') 

USET 

SIDE' 

3D 

Side  of  axes  on  which  labels  will  appear  ('NEGATIVE') 

USET 

SIZE' 

Hardware  character  size  ('SMALL') 

UPSET 

SLANT' 

3D 

Software  character  italic  slant  angle  (18  degrees) 

USET 

SPACE' 

Coordinate  space  ( VIRTUAL  ) 

UPSET 

SPAN' 

3D 

Angular  span  for  pie  charts  (360  degrees) 

UPSET 

START' 

3D 

Pie  chart  starting  angle  (0.) 

USET 

STOP' 

Error  stopping  control  CNOABORT') 

USET 

'STORAGEMODE' 

Segment/Frame  retention  mode  ('RETAINED') 

UPSET 

STRUCTURE  LIMIT' 

Maximum  number  of  structures  which  can  be  defined 
(100) 

UPSET 

SUBSCRIPTCHARACTER 

3D 

Current  subscript  shift  character 

UPSET 

SUPERSCRIPTCHARACTER' 

3D 

Current  superscript  shift  character 

UPSET 

SYMBOL  INDEX 

Choice  of  marker  (0 ) 

USET 

SYSTEM 

Current  coordinate  system  ( SYSTEM  ) 

UPSET 

TABHORIZONTAL 

Location  of  current  horizontal  tab  stop  (10.) 

UPSET 

'TABVERTICAL' 

Location  of  current  vertical  tab  stop  (10  ) 

UPSET 

'TERMINATOR' 

GCS  string  termination  character 
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USET 


TEXT' 


Textual  I/O  mode  (TEXT  ) 


UPSET 

TICINTERVAL' 

Length  ot  UPEN  ticintervals  (1 0.) 

UPSET 

TICLENGTH' 

Length  of  UPEN  ticintervals  ( 1 0.) 

UPSET 

'TtCMINUS- 

Clockwise  tic  mark  size  (0.05) 

UPSET 

TICPLUS' 

Counter-clockwise  tick  mark  size  (0.05) 

UPSET 

TICX' 

X axis  tic  interval  (0.) 

UPSET 

'TICY' 

Y axis  tic  interval  (0.) 

UPSET 

'TICZ' 

3D 

Z axis  tic  interval  (0.) 

USET 

TIME' 

Time  series  plotting  period  ('DATES’) 

USET 

PE' 

T ype  ot  coordinates  (’RECTANGULAR) 

USET 

'UNIFORM' 
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High  level  plotting  option  CNONUNIFORM’) 

USET 

UNITS' 

Device  space  units  CINCHES') 

USET 

UPAXIS' 

3D 

Coordinate  system  viewport  vertical  axis 
CZPOSITIVE) 

UPSET 

UPPERCASE 

Uppercase  shift  character  as  Hollirith  string  (’<’) 

USET 

USER' 

User  coordinate  system  switch 

UPSET 

VERTICAL' 

3D 

Vertical  software  character  position  switch 

USET 

VIEWPORT' 

Viewport  distance  base  switch  ('SITE') 

USET 

VISIBILITY’ 

Framed/segment  creation  visibility  mode  ('VISIBLE') 

UPSET 

WIDTH  OF  LINES 

3D 

Width  of  lines  (0 ) 

USET 

WINDOW' 

Window  type  ('NOWINDOW') 

UPSET 

WRITE  FILE' 

Non-graphic  alphanumeric  output  file  (Computer 
system  dependent) 

UPSET 

XBASE' 

Base  of  log  scaling  along  x-component  (real  number 
or  string 'E')  (10.) 

USET 

XLABEL 

X axis  labelling  option  ( XNUMERICLABEL  ) 

USET 

XLOGARITHMIC 

X axis  linearity  option 

UPSET 

XPERCENTAGE  OF  CHARACTER 
SPACE' 

Portion  of  horizontal  character  apace  occupied  by 
character  (0.65) 

USET 

'XRE PETITION  MODE' 

X component  repetition  mode  for  plotting 
CNOXREPEAT) 

UPSET 

XROTATION’ 

Rotation  factor  around  X axia  for  atructure  invocation 
(0.) 

UPSET 

XSCALING' 

Scaling  factor  along  X axis  tor  structure  invocation 
(1.) 

UPSET 

^SPECIFICATION  UNIT’ 

Number  of  XSPECIFICATION  unts  in  device  space 
(1000) 

USET 

XSIZE' 

Horizontal  hardware  character  position  size  (device 
dependent) 

UPSET 

’XTITLE' 

X axis  alphanumeric  label  CX') 
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UPSET 

YBASE' 

3D 

Base  of  log  scaling  along  Y-component  (real  number 
or  string  E")  (10.) 

USET 

YLABEL' 

Y axis  labelling  option  CYNUMERICLABELS') 

USET 

'YLOGARITHMIC' 

Y axis  linearity  option 

UPSET 

YPERCENTAGE  OF  CHARACTER 
SPACE' 

Portion  of  vertical  character  space  occupied  by 
character  (0.65) 

USET 

YREPETITION' 

Y component  repetition  made  for  plotting 
CNOYREPEAT’) 

UPSET 

'YROTATION' 

Rotation  factor  around  Y axis  for  structure  invocation 
(0) 

UPSET 

'YSCALING' 

Scaling  factor  along  Y axis  for  structure  invocation 

(1.) 

UPSET 

YSIZE 

Vertical  size  for  hardware  characters  (device 
dependent) 

UPSET 

YSPECIFICATIONUNITS' 

Number  of  Y specification  units  in  device  space 
(1000.) 

UPSET 

YTITLE' 

Y axis  alphanumeric  label 

UPSET 

ZBASE' 

3D 

Base  of  log  scaling  along  Z axis  (1 0 ) 

USET 

ZCLIP' 

Hither/yon  clipping  mode  CNOZCIIPPING') 

USET 

ZLABEL' 

30 

Z axis  label  option  CZNUMERICLABELS') 

USET 

'ZREPETITION  MODE' 

Z component  repetition  mode  for  plotting 
CNOZREPEAT) 

UPSET 

ZROTATION’ 

Rotation  factor  around  Z axis  for  structure  invocation 
(0.) 

UPSET 

ZSCALING 

Scaling  factor  along  Z axis  for  structure  invocation 
(1.) 

UPSET 

ZSPECIFICATIONUNITS' 

Number  of  Z specification  units  in  device  space 
(1000) 

UPSET 

’ZTITLE' 

3D 

Z axis  title 

UPSET 

ZVALUE' 

3D 

Numeric  default  Z-value  for  2D  coordinates  (0.) 
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APPENDIX  G 
GC8  ERROR  CODES 

The  following  Is  a list  of  the  currently  defined  error  codes  in  GCS: 

01  — Invalid  key  word  specification  to  USET. 

02  — invalid  key  word  specification  to  UPSET. 

03  — No  plot  files  found. 

04  — Invalid  option  for  UPRNT1. 

05  — Invalid  UDOIT  system. 

06  — Invalid  view  port  boundaries. 

09  - Invalid  UINPUT  option. 

10  — UMARGN  argument  list  out  of  order/Boundary  specification  invalid. 

1 1 — UMARGN  boundary  outside  of  physical  device  boundary. 

1 2 — UWINDO  argument  list  out  of  order/Boundary  specifications  invalid. 

13  — UDAREA  argument  list  out  of  order/Boundary  specifications  invalid. 

14  — UDAREA  boundary  outside  of  physical  device  boundary. 

15  — UCLIP  invalid  argument  list. 

16  — UCLIP  boundary  overlap  error. 

1 7 — UDIMEN  maximum  boundary  specification  invalid. 

18  - UAXIS  argument  list  XMIN  GT.XMAX  and/or  YMIN  GT.  YMAX. 

1 9 — UDAREA  provided  to  UAXIS  too  small  for  requested  options. 

20  — UPSET  — invalid  tic  interval.  Value  .LE.zero  specified. 

21  — UPSET  — invalid  scale  factor.  Value  must  not  be  equal  to  zero. 

22  — UPSET  — invalid  software  character  size.  Value  must  not  be  equal  to  zero. 

23  — UPSET  — invalid  digits  of  precision.  Precision  must  be  greater  than  zero. 

24  — UPSET  — attempt  to  set  zero  or  negative  scripting  — level. 

25  — UPSET  — Invalid  light  pen  correlation  value.  Value  must  be.GT.zero. 

26  — UPSET  — Invalid  transmission  speed.  Value  must  be  .GT.zero. 

27  — UPSET  — Invalid  Library  file  code.  File  codes  must  be  in  range  1 to  99. 

28  — UPSET  — Invalid  error  limit.  Value  must  be  greater  than  zero. 

29  — UPSET  — Invalid  error  limit.  Value  must  be  greater  than  zero. 

30  - UFRAME/UFREND  frame  table  full. 

31  — Failure  to  call  UF3END  for  previous  occurrence  of  same  frame. 

32  — Failure  to  call  UFREND  for  another  named  frame. 

33  — UFREND  called  without  any  frame  active. 

34  — UFREND  call  not  for  currently  active  frame. 

35  - USHOW/UNSHOW  called  for  undefined  frame. 

36  — USHOW/UNSHOW  called  while  in  frame  build  status. 

51  — Insufficient  data  points  for  desired  fit. 

52  — Input  data  points  exceed  fit  capacity. 

53  — Input  data  out  of  order  or  non  functional  relationship. 

54  — Insufficient  array  space  to  return  fitted  results. 

55  — Invalid  trend  adjustment  factor. 

56  — Invalid  polynomial  degree  for  polynomial  fit. 

57  — Invalid  number  of  previous  periods  for  moving  average  fit. 

60  — Attempt  to  build  a structure  in  frame  mode. 

61  — Nested  structure  call  stack  overflow 

64  — Attempt  to  redefine  existing  structure. 

65  — Structure  table  overflow. 

66  — Attempt  to  activate  a structure  while  another  is  still  active. 

67  — Structure  termination  without  active  structure. 

68  — Structure  termination  not  for  current  structure. 

69  — Attempt  to  execute  an  undefined  structure. 

70  — Recursive  structure  build  call. 

71  — Invalid  number  of  items  for  UREAD/UINPUT. 

72  — Attempted  input  operation  from  batch  device. 
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80  — Attempt  to  croate  a secondary  axis  seals  of  zero. 

81  - UAXIS  - pan  position  outside  of  UDAREA  in  'PENAXES'. 

82  — Attempt  to  plot  log  with  window  bound  .LE.  0.0 

83  — Attempt  to  move  to  apply  log  scaling  to  coordinate  whose  value  is  zero. 

84  — Log  plotting  in  device  space  not  allowed. 

85  — UAXI8  — AXIS  choice  requires  0 to  1 within  range  of  X and/or  Y AXIS. 

88  - ULINE/U3LINE  - Invalid  number  of  points. 

91  — IMPEND  found  zero  length  string.  Terminator  placed  in  first  character  position. 

92  - UWAIT  - Negative  time  period  specified. 

93  - UOUERY  - Invalid  option  specification. 

1 01  — UHISTO  — Insufficient  points. 

102  — UHISTO  — Invlid  number  of  bars. 

103  - UHISTO  - Unreasonable  window  for  OWNSCALE. 

1 04  — UHISTO  — Insufficient  U0AREA  for  options  specified. 

1 1 0 — Invalid  number  of  points  for  UPIE. 

Ill-  Invalid  data  value  for  UPIE. 

1 1 2 — Invalid  max  label  size  for  UPIE. 

1 1 3 — Insufficient  room  for  UPIE  display. 

114  — UPIE  — ABSIStarting  Angle  > -ABS(Endlng  Angle). 

115  — UPIE  — Too  many  labels  outside  of  pie. 

1 20  — USCATR  — Insufficient  points  specified. 

121  — USCATR  — Invalid  limits  for  logarithmic  scatter  diagram. 

1 22  — USCATR  — UDAREA  too  small  for  specified  options. 

1 30  — UBAR  — Invalid  number  of  points. 

1 31  — UBAR  — Invalid  label  size. 

1 32  — UBAR  — Invalid  data  value. 

133  - UBAR  - Insufficient  UDAREA  for  options  specified. 

1 40  — UCHART  — invalid  number  of  points. 

141  - UCHART  - Invalid  label  size. 

1 42  — UCHART  — Invalid  number  of  bars. 

1 43  — UCHART  — UDAREA  too  small  for  specified  options. 

1 50  — UTAXIS  — UDAREA  too  small  tor  specified  options. 

160  - UTILTY  - Invalid  action. 

161  — UTILTY  — Save  structure  not  found. 

162  — UTILTY  — Utility  operation  on  structure  work  file. 

1 90  — UVIEW  — Viewpoint  specified  same  as  view  site. 

191  — UVWPRT  — Aperature  specified  negative  or  zero  in  some  dimension. 

1 92  — UVWPRT  — Viewport  behind  viewer. 

1 93  — Attempt  to  draw  through  viewpoint. 

1 94  — Hither  plane  behind  or  at  viewpoint. 
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A.  PURPOfl  or  RROQRAM 


GCS  is  a general-purpose,  device-independent  computer  graphics  package  keyed 
to  the  user. 


a.  program  ipecipicatiori 


GCS  is  a collection  of  ANSI  standard  FORTRAN  subroutines  invocable  by  a user's 
FORTRAN  program. 


C.  KIT  MODI 

GCS's  capabilities  range  over  a powerful  set  of  functions.  It  can  produce  a 
simple  line-drawing  (with  over  UO  types  of  lines),  or  handle  comprehensive 
general-purpose  axis-creation  and  automatic  clipping;  ARC  and  Conic  generation; 
graphics  input;  drafting  multilevel,  secondary-coordinate  system  definition 
and  characters;  arid  italicised  software  characters.  All  plotting  and  other 
positional  output  can  be  done  in  the  user's  own  units  without  his  having  to 
know  anything  about  the  specific  nature  of  his  terminal. 


O.  lOUIPMSMT  DETAIL! 

GCS  is  operational  on  the  Honeywell  635  and  supports  the  Tektronix  liOlOAOlk, 
Computer  b00/15,  IMLAC  PDS-1D,  TSP  Analog  pen  plotter,  Datapoint  3300,  and 
alphanumeric  printing  terminals.  Nationwide  field  testing  has  included,  or 
will  include,  such  equipment  as  the  Univac  1108,  IBM  S/3oO-370,  DEC  PDP  10, 

HP  3000,  and  CDC  3500  and  6000  series.  A tape  must  be  provided  by  interested 
parties  if  a copy  of  the  GCS  system  is  desired. 

C.  IMRwt-OOTAut 

Input-Output  is  accomplished  by  invoking  GCS  subroutines. 


W.  ADDITIONAL  REMARKS 

Manuals  avai lable : 

1.  Primer  on  Computer  Graphics  Programming. 

2.  GCS  Programmer's  Reference  Manual. 
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CHAPTER  I 
INTRODUCTION 


Contained  within  this  section  are  the  detailed  descriptions  and  usage  instructions  of  all 
of  the  user  callable  routines  which  make  up  the  GCS  graphics  system,  and  a discussion 
of  the  various  options  available  to  the  user. 

QCS  is  available  in  two  versions,  a two-dimensional  version,  and  a three-dimensional 
version. 

The  three  dimensional  version  is  a sophisticated,  highly  capable  package  having  such 
features  as  graphical  data  structures,  text  processing,  and  of  course,  three-dimension 
graphics.  The  two-dimensional  version  is  the  older,  less  sophisticated  version.  While 
possessing  fewer  capabilities,  it  is  still  supported,  since  it  offers  the  benefits  of  a smaller 
central  memory  requirement,  and  a higher  execution  speed,  while  still  fulfilling  most  of 
the  normal  graphics  requirements. 

In  general,  the  two-dimension  version  is  a proper  subset  of  the  three  dimension  version 
meaning  that  all  elements  of  two-dimension  GCS  are  contained  within  the  three 
dimensional  version. 

Those  routines  or  options  which  are  a part  of  the  three-dimension  version,  and  not  a part 
of  the  two-dimension  version  are  indicated  by  the  notation  ‘3D  only.’ 


CHAPTER  II 

THE  GRAPHICS  STATUS  AREA  (GSA)  AND  USET/UPSET/UOUERY  OPTIONS 


The  Graphics  Status  Area  V 

Central  to  the  structure  of  GCS  is  the  concept  of  a distributed  executive  capability 
provided  by  the  Graphics  Status  Area  (GSA).  This  is  a labeled  COMMON  area  in  which  is 
stored  information  concerning  the  state  of  the  graphics  system,  Information  about  the 
characteristics  of  both  the  terminal  and  the  computer  system,  and  iniormation  about  the 
current  settings  of  GCS  user-controlled  variables.  The  GSA  serves  as  a means  of 
communication  between  the  various  subroutines  which  comprise  the  Graphics 
Compatibility  System.  Much  of  the  power  of  GCS  arises  from  the  ability  of  every  GCS 
routine  to  access  any  of  the  information  about  the  status  of  the  system  conveniently  and 
efficiently.  One  of  the  immediate  results  of  having  a status  area  is  the  great  reduction  in 
the  number  of  arguments  in  the  calling  sequences  of  the  routines,  thus  improving  the 
efficiency  of  the  system.  It  also  makes  it  much  easier  for  the  user  to  remember  the 
calling  sequence  of  the  different  routines  when  writing  application  software. 

The  variables  of  the  GSA  can  be  set  in  any  of  three  ways:  they  may  be  established 
during  the  nxecution  of  USTART  with  values  taken  from  a predefined  table;  they  may  be 
set  by  the  user  through  USET,  UPSET,  or  other  setting  routines;  or  they  may  be  set  by 
GCS  routines  during  execution.  USTART  will  load  the  variables  with  their  initial  default 
setting.  The  user  sets  these  variables  under  his  control  in  USET  and  UPSET  and  through 
subroutine  arguments  for  such  routines  as  UWINDO,  UMARGN,  UDAREA,  UCOSYS,  and 
UROTAT.  The  user  may  also  restore  the  GSA  variables  to  the  previous  state  through  use 
of  any  of  the  'UNSAVE'  routines.  GCS  itself  maintains  many  variables  which  keep  track 
of  such  items  as  beam/pen  position,  and  various  status  change  flags.  The  parameters 
contained  within  the  GSA  can  be  obtained  by  the  user  by  a call  to  UQUERY. 

The  ability  to  change  GSA  variables  selectively  in  accordance  with  related  subroutine 
options  is  one  of  the  many  attractive  and  powerful  features  of  GCS.  This  chapter 
contains  two  tables  which  present  descriptive  grouping  of  USET  and  UPSET  options. 
Table  1 gives  a list  of  those  USET  options  which  are  most  frequently  used.  This  list  may 
be  used  as  a quick  reference  guide  to  the  most  popular  USET  options.  Table  2 gives  the 
default  conditions  that  are  automatically  preset  as  each  call  to  GCS  is  initiated.  This 
concept  of  default  values  is  immensely  valuable  and  convenient  to  both  the  beginning 
programmer  and  the  experienced  programmer  who  doesn't  want  to  worry  about  the 
setting  of  the  GSA  variables.  The  complete  list  of  options  can  be  formed  in  the  writeups 
associated  with  the  USET/UPSET/UQUERY  subroutines. 


USET  Options 
TABLE  1 

USET  OPTIONS  MOST  FREQUENTLY  USED: 

TO  REQUEST  ABSOLUTE  COORDINATE  PLOTTING  (DEFAULT): 

USET  ('ABSOLUTE')  USET  ('ABSO') 

USET  CABSb') 

TO  REQUEST  RELATIVE  OR  INCREMENTAL  COORDINATE  PLOTTING: 

USET  ('RELATIVE')  USET  CRELA’) 

NOTE:  b - is  a blank  or  space 
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TO  REQUEST  RECTANGULAR  COORDINATES  (DEFAULT): 

USET  (‘RECTANGULAR')  USET  (‘RECT’) 

TO  REQUEST  POLAR  COORDINATES: 

USET  (‘POLAR')  USET  (‘POLA’) 

TO  REQUEST  ANGULAR  VALUES  IN  DEGREES  (DEFAULT): 

USET  (‘DEGREES’)  USET  CDEGR) 

TO  REQUEST  ANGULAR  VALUES  IN  RADIANS: 

USET  (‘RADIANS’)  USET  (*RADI‘) 

TO  REQUEST  PLOTTING  IN  VIRTUAL  SPACE  (DEFAULT): 

USET  (‘VIRTUAL’)  USET  CVIRT) 

TO  REQUEST  PLOTTING  IN  DEVICE  SPACE: 

USET  (‘DEVICE’)  USET  (‘DEVI’) 

TO  REQUEST  DEVICE  SPACE  PLOTTING  UNITS  IN  INCHES  (DEFAULT): 

*/  USET  CINCHES’)  USET  (‘INCH’) 

TO  REQUEST  DEVICE  SPACE  PLOTTING  IN  RASTER  UNITS: 

USET  CRASTERUNITS)  USET  (‘RAST’) 

TO  REQUEST  DEVICE  SPACE  PLOTTING  IN  FONT  (CHARACTER  SPACE)  UNITS: 
USET  CFONTUNITS")  USET  (‘FONT’) 

TO  REQUEST  DEVICE  SPACE  PLOTTING  IN  PERCENT  UNITS: 

USET  CPERCENTUNITS’)  USET  (‘PERC’) 

TO  REQUEST  PLOTTING  OF  A VISIBLE  LINE  (DEFAULT): 

USET  CLINE1) 

TO  REQUEST  PLOTTING  OF  INVISIBLE  LINES: 

USET  ('MOVE  ) 

USET  (‘NOLINE’)  USET  (‘NOLI’) 

USET  CNObLINE’)  USET  ( NObL  ) 

NOTE:  b - is  a blank  or  space 
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TO  REQUEST  PLOTTING  OF  LINES  WITH  ARROW  TERMINATORS: 

USET  ( ARROW’)  USET  (ARRO) 

TO  REQUEST  PLOTTING  OF  DASHED  LINES: 

USET  (‘DASH’) 

TO  REQUEST  PLOTTING  OF  TIC  LINE^ 

USET  CTICLINE  ) USET  CTICL’) 

TO  REQUEST  PLOTTING  OF  LINES  WITH  ONLY  ENDPOINTS  VISIBLE: 

USET  (‘POINT’)  USET  (‘POIN’) 

TO  REQUEST  PLOTTING  OF  LINES  COMPOSED  OF  CHARACTERS: 

USET  CALPHANUMERICLINES')  USET  CALPH’) 

TO  REQUEST  PLOTTING  OF  INVISIBLE  LINES  WITH  CHARACTERS  AT  THEIR 
ENDPOINTS: 

USET  (’CHARACTER  ) USET  ( CHAR  ) 

TO  REQUEST  CHARACTER  OUTPUT  IN  THE  FORM  OF  HARDWARE  CHARACTERS 
(DEFAULT). 

USET  (‘HARDWARE’)  USET  (‘HARD’) 

TO  REQUEST  CHARACTER  OUTPUT  IN  THE  FORM  OF  SOFTWARE  CHARACTERS: 
USET  (‘SOFTWARE’)  USET  (’SOFT’) 

TO  REQUEST  UPRINT/UWRITE  OUTPUT  IN  TEXT  FORMAT  (DEFAULT): 

USET  (‘TEXT’) 

TO  REQUEST  UPRINT/UWRITE  OUTPUT  IN  REAL  FORMAT: 

USET  CREALNUMBER’)  USET  (‘REAL’) 

TO  REQUEST  UPRINT/UWRITE  OUTPUT  IN  INTEGER  FORMAT: 

USET  (’INTEGER’)  USET  CINTE  ) 

TO  REQUEST  PLOTTING  WITH  RESPECT  TO  THE  SYSTEM  AXIS  (DEFAULT): 

USET  (’SYSTEM’)  USET  CSYST’) 


NOTE:  b - Is  a blank  or  space 


Where 

$ IS  THE  DESIRED  CHARACTER  TERMINATOR 

AND 

X.  THE  LINE  TYPE  SPECIFICATION,  IS  AS  FOLLOWS. 

A ALPHANUMERIC  LINE 
D DASHED  LINE 
L SOLID  LINE 
N NULL  OR  INVISIBLE  LINE 
T TIC  LINE 
b denotes  blank 


TABLE  2 

GCS  DEFAULT  CONDITIONS 


This  table  discusses  those  options  which  are  present  in  the  Graphics  Status  Area  as 
default  options.  After  a call  to  Subroutine  USTART,  the  Graphics  Compatibility  System  is 
set  to  the  default  conditions  as  indicated  below.  The  default  options  can  be  divided  into 
two  groups:  Basic  Plotting  Options  and  High  Level  Plotting  Options. 

I.  Default  Beale  Plotting  Options 

Plotting  is  done  in  'RECTANGULAR'  and  'ABSOLUTE'  coordinates  on  the  ‘SYSTEM’ 
coordinate  axis.  The  'USER'  coordinate  axes  are  identical  to  the  system  axis.  Plotting  is 
done  in  'VIRTUAL'  space  with  a virtual  window  whose  limits  are  from  0.0  to  1 00.0  in  the  X 
direction,  and  from  0.0  to  1 00.0  in  the  Y direction.  The  virtual  window  is  mapped  into  a 
display  area  which  is  the  largest  square  area  on  the  device  display  surface.  The  right 
hand  edge  of  the  square  corresponds  to  the  top  edge  of  the  display  surface. 

Character  output  in  GCS  will  be.  by  default,  in  'HARDWARE'  character  format,  of  type 
'GOTHIC'  and  of  'MEDIUM'  size.  If  ‘SOFTWARE’  characters  are  requested  via  USET  then 
the  default  horizontal  size  is  five  (5.0)  virtual  units,  and  the  default  vertical  size  is  seven 
(7.0)  virtual  units. 

By  default,  angular  units  for  angular  specifications  are  in  ‘DEGREES'.  If  the  user 
switches  to  'DEVICE'  space,  then  all  length  or  distance  units  (i.e.  from  UPRINT  or 
UREAD),  the  data  will  be  assumed  to  be  in  'TEXT'  mode.  The  alphanumeric  output 
defaults  to  the  'PLOT'  device  if  possible,  and  any  graphic  output  will  go  to  all  devices  in  a 
cluster.  Graphic  input  is  from  the  primary  input  device;  the  number  of  digits  of  precision 
for  numeric  output  is  four  (4);  and  GCS  detected  erroi  a are  signalled  as  they  occur. 

A line  which  is  drawn  by  a subroutine  in  GCS  is  considered  to  consist  of  two  parts;  a line 
type  and  a line  terminator.  The  line  type  may  be  solid  (visible),  ticked,  null  (invisible), 
dashed,  or  alphanumeric.  The  line  may  be  te  minated  by  an  arrow,  a back  arrow,  double 
arrows,  a character,  a point,  a symbol,  a set  of  coordinate  values,  or  nothing  at  all.  The 
default  line  type  in  GCS  is  'SOLID'  with  'NULL'  terminators  CLNULL').  If  'TICLINES'  are 
requested  via  USET  option,  then  the  default  tic  Interval  is  ten  (1 0.0)  virtual  units.  It  Is  the 
user's  responsibility  to  insure  that  the  tic  interval  is  appropriate  if  he  switches  to 


NOTE:  b - is  a blank  or  space 
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‘DEVICE’  space  or  alters  the  default  virtual  window  setting  or  the  default  display  area 
setting.  If  ‘DASHLINES1  are  requested,  then  the  default  dash  specification  (56.)  will 
result  in  a dashed  line  which  is  alternately  light  and  dark,  in  increments  of  approximately 
0.075  inches.  If  a ‘CHARACTER’  line  terminator  is  requested  but  no  character  is 
specified  by  way  of  Subroutine  UPSET,  then  the  character  asterisk  (*)  is  used.  Similarly, 
the  asterisk  is  used  to  compose  the  line  type  if  ‘ALPHANUMERIC’  lines  are  requested 

II.  Default  High  Level  Plotting  Options 

For  each  call  to  UPLOT  or  UPLOT1,  the  data  values  which  represent  the  curves  are 
examined,  and  a ‘NEWSCALE’  is  created.  UAXIS  will  be  invoked  to  create  'XYAXES' 
The  data  values  will  be  examined,  and  appropriate  limits  for  the  data  established 
Numeric  labels  only  will  be  output  for  the  X axis  and  the  Y axis.  The  values  which  appear 
at  the  tic  marks  on  the  axes  will  be  ‘neat'  numbers,  and  the  axes  will  be  positioned  at  the 
‘EDGE’  of  the  plot.  Both  the  X axis  and  the  Y axis  will  be  drawn  in  a linear  coordinate 
space.  The  axis  lines  will  be  ticced.  If  a time  series  axis  is  plotted  by  invoking 
Subroutine  UT AXIS,  the  default  interval  for  the  X axis  wll  be  'DAILY'.  No  curves  will  be  fit 
to  the  data  values,  but  if  ‘FITPOLYNOMIAL’  is  requested,  then  subroutine  UPLOT  will 
attempt  to  fit  a fifth  degree  polynomial  to  the  data. 

III.  Summary 


COORDINATE  SPACE: 
COORDINATE  TYPE: 
COORDINATE  SYSTEM: 
COORDINATE  AXIS: 

VIRTUAL  WINDOW: 


‘VIRTUAL’ 

'ABSOLUTE' 

•RECTANGULAR' 

‘SYSTEM’ 

0.0  TO  100.0  X DIRECTION 
0.0  TO  100.0  Y DIRECTION 


DISPLAY  AREA: 


Largest  square  area  which  is  right-justified  on  the 
display  surface  of  the  device. 


DEVICE  SPACE  UNITS:  ‘INCHES’ 

ANGULAR  UNITS:  DEGREES’ 


LINE  TYPE. 

SYSTEM  CHARACTER: 

TIC  INTERVAL: 

DASH  SPECIFICATION: 

CHARACTER  TYPE: 
CHARACTER  FONT: 
CHARACTER  SIZE: 

SOFTWARE  CHARACTER  SIZE: 


OUTPUT  FORMAT: 
ALPHANUMERIC  MARGINS: 

DIGITS  OF  PRECISION: 
ERROR  HANDLING: 

AXIS  SCALING: 

AXIS  LABELING: 

AXIS  POSITIONING: 

AXIS  TYPE: 

AXIS  EXISTENCE: 

AXIS  CC ORDINATES: 


TIME  SERIES  AXIS  SCALE: 


’LINE’  or  ‘LNULL’ 
asterisk  (*) 

10.0  virtual  units 
56. 

■HARDWARE’ 

’GOTHIC’ 

’MEDIUM’ 

5.0  virtual  units  horizontal 

7.0  virtual  units  vertical 

’TEXT’ 

Device  display  surface  boundaries. 
4 

IMMEDIATEOUTPUT’ 

■AUTOSCALE' 

‘XNUMERICLABEL’ 

'YNUMERICLABEL' 

•EDGEAXIS' 

’TICAXIS’ 

XYAXES' 

'LINXAXIS' 

’LINYAXIS' 

'DAILY' 
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CHAPTER  III 

QCS  USER  SUBROUTINES 


This  chapter  provides  the  detailed  description  of  each  user  callable  subroutine  Each 
routine  is  presented  in  the  following  manner:  The  FUNCTION  paragraph  gives  a brief 
statement  of  the  main  purpose  of  the  subroutine.  The  CALLING  SEQUENCE  is 
presented  with  an  explanation  of  each  parameter  required  for  the  subroutine  Any  USET 
or  UPSET  options  that  will  affect  the  operation  of  the  subroutine  are  listed  under  the 
OPTIONS  paragraph.  The  COMMENTS  paragraph  provide  the  detailed  description  of  all 
of  those  features  considered  to  be  both  unique  and  important  to  each  specific 
subroutine.  On  the  following  pages  is  listing  of  all  of  the  user  subroutines.  The  features 
that  are  only  calculated  in  the  three  dimensional  version  are  specified  by  italics 
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PRECEDING  PAGE  BLaNK-NOT  FILMED 


ALPHABETICAL  LISTING  OF  GCS  SUBROUTINES 


UAIN 

UALPHA 

UAOUT 

UAPEND 

UARC 

UASPCT 

UAVERG 

UAXIS 

UBAR 

UBELL 

UCALL 

UCHART 

UCLOSE 

UCONIC 


Accepts  one  character  from  the  terminal 
CALL  UAIN  (ICHAR) 

Insures  that  terminal  is  in  alphanumeric  mode 
CALL  UALPHA 

Outputs  a character  at  current  pen  position  subject  to  margining 
CALL  UAOUT  (ICHAR) 

Adds  GCS  string  terminator  to  character  string 

CALL  UAPEND  (COUNT.DATAIN.DATOUT) 

Draws  an  arc  from  current  pen  position 
CALL  UARC  (X,Y, ANGLE) 

Forces  the  display  dimensions  to  satisfy  the  specified  aspect  ratio 
CALL  UASPCT  (RATIO) 

Fits  a moving  average  curve  to  time  series  data 

CALL  UAVERG  (ARRAY, POINTS, FCST, PERIOD) 

Draws  axes  with  appropriate  numeric  and  alphanumeric  labeling 
CALL  UAXIS  (XMIN,XMAX,YMIN,YMAX) 

Draws  a bar  chart  with  appropriate  numeric  and  alphameric  labels 
CALL  UBAR  (ARRAY.PTS, LABELS, SIZE) 

Sounds  the  audible  alarm  at  the  terminal 
CALL  UBELL 

Invokes  a graphic  data  structure  in  two  dimensions 
CALL  UCALL  (NAME.DX.DY.SX.SY, ANGLE) 

Draws  a grouped  bar  chart  for  multi-valued  data 
CALL  UCHART  (ARRAY, GROUPS, BARS, LABELS, YMAXL) 

Closes  the  current  open  frame/segment 
CALL  CLOSE  (SEGNAM) 

Draws  generalized  conic  sections 

CALL  UCONIC  (X,Y,P,E,THETA1  ,THETA2) 
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UCONTR 

UCOSYS 

UCOUNT 

UCRCLE 

UDAREA 

UDELET 

UDIMEN 

UDOIT 

UDRAW 

UDRIN 

UEND 

UERASE 

UERROR 

UFLUSH 


Draws  contours  on  regular  array  of  data 

CALL  UCONTR  (Z,X,Y,A,FX,FY.CURVE,FN) 

Creates  a user  coordinate  plotting  system 

CALL  UCOSYS  (DX.DY.SX.SY, ANGLE) 

Counts  number  of  characters  in  character  string 
CALL  UCOUNT  (DATA, COUNT) 

Draws  a circle  whose  center  location  and  radius  are  specified 
CALL  UCRCLE  (X.Y, RADIUS) 

Sets  the  device  display  area  associated  with  user  window 
CALL  UDAREA  (XMIN,XMAX,YMIN,YMAX) 

Deletes  a currently-defined  frame/segment 
CALL  UDLETE  (SEGNAM) 

Adjusts  physical  boundaries  of  output  device  (alters  aspect  rates) 
CALL  UDIMEN  (XMAX.YMAX) 

Perform  various  page  layout  functions 
CALL  UDOIT  (ACTION) 

Draws  solid  line  vector 

CALL  UDRAW  (X.Y) 

Performs  the  input  requested  graphic  operation  and  returns  request 
CALL  UDRIN  (X.Y.ICHAR) 

Terminates  graphic  operations  and  positions  pen  in  home  position 
CALL  UEND 

Erases  the  screen  or  requests  a clean  plotting  surface 
CALL  UERASE 

Returns  listing  of  source  records  with  GCS  error  commentary 
CALL  UERROR  (ERLAST, TOTAL) 

Insures  that  visual  display  reflects  all  net  program  graphical  output 
CALL  UFLUSH 


I 


UFRAME  Defines  the  start  of  a named  set  of  graphical  commands 

CALL  UFRAME  (NAME) 

UFREND  Defines  the  end  of  a named  set  of  graphical  commands 

CALL  UFREND  (NAME) 

UGRIN  Gets  coordinates  and  a character  from  terminal  and  returns  them 

CALL  UGRIN  (X.Y.ICHAR) 

UHISTO  Draws  a histogram  with  appropriate  numeric  and  alphanumeric  labels 

CALL  UHISTO  (ARRAY, PTS, BARS) 

UHOME  Moves  beam  to  home  position 

CALL  UHOME 

UIMAGE  Applies  general  2-D  image  transformations  to  'retained'  segments 
CALL  UIMAGE  (X,Y,SX,SY,R,SEGNAM) 

UINPUT  Inputs  alphanumeric  information  from  the  current  position 
CALL  INPUT  (DATA, COUNT, FLAG  OPTION) 

UINVOK  Invokes  a GCS  structure  at  *he  current  position 

CALL  UINVOK  (NAME) 

ULINE  Draws  a curve  connecting  two  arrays  of  points  in  two  spaces 

CALL  ULINE  (X.Y.PTS) 

ULINFT  Calculates  least  squares  linear  fit  to  points  provided 

CALL  ULINFT  (X.Y.XN.S.YI) 

ULOOK  Establish  portion  display  area  onto  which  corresponding  portion  of 

current  virtual  space  viewport  will  be  mapped 

CALL  ULOOK  (XMIN,XMAX,YMIN,YMAX) 

ULSTSQ  Calculates  least  squares  polynomial  fit  to  points  provided 

CALL  ULSTSQ  (X,Y,XN,COEFF) 

UMARGN  Sets  the  left  and  right,  top  and  bottom  alphanumeric  window  boundaries 
CALL  UMARGN  (XLEFT.XRIGHT.YBOTTM.YTOP) 

UMENU  Menu  board  generating  routine 

CALL  UMENU  (POINTS, LABELS, CHOICE) 
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UMODFY 


Modifies  setting  of  segment  attributes 


UMOVE 

UNSAVE 

UNSHOW 

UNSVPN 

UNSVTR 

UOPEN 

UORIGN 

UOUTLN 

UPAUSE 

UPEN 

UPEN1 

UPIE 

UPLACE 


CALL  UMODFY  (SEGNAM.NAMAT.ATVALU) 

Moves  the  pen  to  position  specified  by  input  arguments 
CALL  UMOVE  (X.Y) 

Restores  all  variables  of  the  graphic  status  area 
CALL  UNSAVE  (ARRAY) 

Causes  the  named  frame  of  graphical  information  to  be  made  invisible 
CALL  UNSHOW  (NAME) 

Restores  all  pen  related  variables  in  the  graphics  status  area 
CALL  UNSVPN  (ARRAY) 

Restores  coordinate  system  related  variables  in  the  graphics  status  area 
CALL  UNSVTR  (ARRAY) 

Opens  a segment 

CALL  UOPEN  (SEGNAM.SEGTYP) 

Creates  a user  coordinate  system  at  the  current  beam/pen  position 
CALL  UORIGN 

Draws  a box  around  the  user's  display  area 
CALL  UOUTLN 

Suspends  execution  until  one  character  is  entered  from  keyboard 
CALL  UPAUSE 

Draws  a line  from  current  pen  position  to  given  coordinates 
CALL  UPEN  (X.Y) 

Sets  one  'USET'  option  for  this  call  only  before  executing  pen  movement 
CALL  UPEN1  (X,Y, OPTION) 

Draws  a pie  chart  with  appropriate  numeric  and  alphameric  labels 
CALL  UPIE  (ARRAY, PTS.LABELS.SIZE) 

Applies  2-D  translation  image  transformation  to  retained'  segments 
CALL  UPLACE  (X.Y.SEGNAM) 
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UPLOT 

UPLOT1 

UPLYGN 

UPOINT 

UPOST 

UPRINT 

UPRNT1 

UPSET 

UQUERY 

UREAD 

URECT 

URESET 

UROTAT 

USAREA 


General  purpose  multi-curve  plotting  routine 

CALL  UPLOT  (X.Y.CURVES.PARRAY, OPTION) 

Plots  a single  curve 

CALL  UPLOT 1 (X.Y.PTS) 

Draws  a regular  polygon 

CALL  UPLYGN  (X.Y.PTSIN, RADIUS) 

Delines  point  which,  together  with  two  end  points  of  a given  line,  defines 
the  plane  for  the  terminator  and  tic  line 

CALL  UPOINT  (X,Y,Z) 

Insures  that  only  defined,  visible  segments  are  displayed 
CALL  UPOST 

Prints  information  in  hardware  or  software  characters 
CALL  UPRINT  (X.Y, INPUT) 

Allows  alphanumeric  output  at  current  position  with  specified  option 
CALL  UPRNT1  (DATA, OPTION) 

Changes  setting  in  the  gas  which  requires  a parameter  value  to  be  set 
CALL  UPSET  (OPTION, VALUE) 

Obtains  current  value  of  specified  variable  in  GSA 
CALL  UQUERY  (OPTION.VALUE) 

Allows  alphanumeric  input  from  the  graphic  terminal 
CALL  UREAD  (X,Y, DATA, COUNT, FLAG) 

Draws  a rectangle 

CALL  URECT  (X,Y) 

Resets  GSA  variables  to  default  conditions 
CALL  URESET 

Creates  a user  coordinate  system  at  current  position  rotated  as  specified 
CALL  ROTAT  (ANGLE) 

Changes  device  boundaries  to  maintain  a one  to  one  aspect  ratio  with  the 
current  window  boundaries 

CALL  USAREA 
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USAVE 

USAXIS 

U8CALE 

USCATR 

USET 

USHOW 

USPLIN 

USTART 

USTRCT 

USTUD 

USVPN 

USVTR 

UTAXIS 

UTERM 


Saves  all  the  variables  of  the  Graphics  Status  Area 
CALL  USAVE  (ARRAY) 

Draws  a single  axis  in  any  of  three  coordinates 
CALL  USAXIS  (AXIS.XST ART.YST ART.ZSTART.DIST) 

Creates  a user  coordinate  system  at  current  position  with  specified  scale 
CALL  USCALE  (SX.SY) 

Draws  a scatter  plot 

CALL  USCATR  (X.Y.PTS) 

Sets  a graphics  status  area  variable  to  a given  value 
CALL  USET  (OPTION) 

Causes  the  named  frame  of  graphical  information  to  be  made  visible 
CALL  USHOW  (NAME) 

Fits  a cubic  spline  curve  to  the  input  data 

CALL  USPLIN  (X.Y.PTS, RETX.RETY.RETPTS) 

Initializes  the  graphics  status  area 
CALL  USTART 

Defines  the  start  of  a graphic  data  structure 
CALL  USTRCT  (NAME) 

Returns  limits  of  virtual  and  display  surfaces 
CALL  USTUD(S) 

Saves  all  pen-related  variables  of  the  graphics  status  area 
CALL  USVPN  (ARRAY) 

Saves  coordinate  system  related  variables  in  the  graphics  status  area 
CALL  USVTR  (ARRAY) 

Draws  a time  series  axis  with  appropriate  alphameric  and  numeric  labels 
CALL  UTAXIS  (BEGIN, PERIOD.YMIN.YMAX) 

Defines  the  end  of  a graphic  data  structure 
CALL  UTERM  (NAME) 
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UTILTY 

UTSFIT 

UVIEW 

UVWPLN 

UVWPRT 

UWAIT 

UWHERE 

UWINDO 

UWLOOK 

UWRITE 

UWRIT1 

UZWNDO 

U3AXIS 

U3CALL 


Performs  data  structure  utility  functions 

CALL  UTILTY  (OPTION, VALUE) 

Fits  an  exponentially  smoothed  curve  to  time  series  data 

CALL  UTSFIT  (ARRA Y, POINTS, FCST.ALPHA) 

Defines  position  of  viewer  in  relation  to  environment,  and  the  direction  of 
view. 

CALL  UVIEW  (XVIEW,YVIEW,ZVIEW,XSITE,YSITE,ZSITE) 

Defines  the  location  of  the  view  (projection)  plane 
CALL  UVWPLN  (DISTAN) 

Defines  the  location  of  the  view  (projection)  plane  (obsolete,  see 
UVWPLN) 

CALL  UVWPRT  (DISTAN) 

Waits  a given  number  of  seconds 

CALL  UWAIT  (SECONDS) 

Returns  the  coordinates  of  the  current  pen  position  in  user  units 

CALL  UWHERE  (X.Y) 

Sets  the  virtual  window  boundaries 

CALL  UWINDO  (XMIN.XMAX.YMIN.YMAX) 

Adjusts  both  virtual  window,  and  user  display  area  to  cover  given  portion 
of  virtual  space 

CALL  UWLOOK  (XMIN,YMAX,YMIN,YMAX) 

Prints  information,  then  restores  pen  to  location  on  input 
CALL  UWRITE  (X.Y, DATA) 

Allows  apphameric  output  at  current  position  under  one  option 
CALL  UWRIT1  (DATA, OPTION) 

Sets  the  hither/yon  window  boundaries  for  Z-clipping 
CALL  UZWNDO  (ZMIN.ZMAX) 

Creates  a set  of  axes  in  three  space 
CALL  U3AXIS  (XMIN,XMAX,YMIN.YMAX,ZMIN,ZMAX) 

Invokes  an  existing  graphics  data  structure  in  three  space. 

CALL  U3CALL  (X.Y.Z.SX.SY.SZ.RX.RY.RZ.NAME) 


r 

U3CSYS 

U3DRAW 

U3QRIN 

U3IMAG 

U3LINE 

U3MOVE 

U3PEN 

U3PEN1 

U3PLACE 

U3PL0T 

U3PRNT 

U3ROTA 

U3SCAL 

U3STUD 

\ 


Creates  a new  coordinate  system  in  three  space 
CALL  U3CSYS  (X,Y,Z.SX.SY,SZ.RX,RY.RZ) 

Draws  a solid  line  in  three  space 

CALL  U3DRAW(X,Y,Z) 

Gets  3-D  coordinates  and  a character  from  terminal  and  returns  them 
CALL  U3GRIN  (X.Y.Z.ICHAR) 

Applies  general  3-D  image  transformations  to  retained'  segments 
CALL  U3IMAG  (X,Y,Z,SX,SY,SZ,RX,RY,RZ,SEGNAM) 

Draws  a curve  connecting  three  arrays  of  points  (X,Y,Z)  in  three  spaces 
CALL  U3LINE  (X.Y.Z.PTS) 

Moves  pen  invisibly  in  three  space 

CALL  U3MOVE  (X.Y.Z) 

Draws  a line  from  current  pen  position  to  given  3-D  coordinates 
CALL  U3PEN  (X.Y.Z) 

Sets  one  'USET'  option  for  this  call  only  before  executing  3-D  pen 
movement 

CALL  U3PEN1  (X,Y,Z, OPTION) 

Applies  3-D  translation  image  transformation  to  'retained'  segments 
CALL  U3PLAC(X,Y.Z,SEGNAM) 

Draws  a general  purpose  graph  in  three  space 

CALL  U3PLOT  (X,Y,Z, CURVES, PTS.OPTS) 

Displays  textual  data  at  pen  position  in  three  space 
CALL  U3PRNT  (X.Y.Z.DATA) 

Creats  a user  coordinate  system  in  three  space  at  current  pen  position, 
rotated  as  specified 

CALL  U3ROTA  (RX.RY.RZ) 

Creates  a user  coordinate  system  in  three  space  at  current  per  position, 
scaled  as  specified 

CALL  U3SCAL  (SX.SY.SZ) 

Gives  current  setting  of  the  3-D  user  display  area  and  windows 
CALL  U3STUD  (ARRAY) 


U3WHER  Returns  current  pen  position  in  current  units  in  three  space 

CALL  U3WHER  (X.Y.Z) 

U3WNDO  Sets  the  virtual  3-0  w'ndow  boundaries 

CALL  U3WND0  (XMIN.XMAX.YMIN.YMAX.ZMIN.ZMAX) 

U3WRIT  Displays  textual  information  in  three  space,  returns  pen  to  original 
position 

CALL  U3WRIT  (X.Y.Z, DATA) 


Subroutine  UAIN 


Interactive 


FUNCTION: 

This  routine  obtains  one  character  as  entered  to  signify  the  completion  of  a graphics 
input  operation.  This  is  usually  the  result  of  a keyboard  trike 

CALLING  SEQUENCE: 

CALL  UAIN  (CHAR) 

Where 

CHAR  contains  the  character  obtained  from  the  terminal  in  Hollerith  format. 
OPTIONS  which  may  apply: 

'KEYBOARD',  'FUNCTIONKEY',  CURSOR',  JOYSTICK',  'BALL',  MOUSE'.  LIGHTPEN', 
TABLET' 

COMMENTS: 

The  character  requested  will  be  obtained  from  the  specified  graphics  input  device.  If  no 
explicit  USET  call  has  been  used  to  specify  an  input  device  (see  UGRIN),  the  character 
will  be  obtained  from  the  principal  input  device  for  the  terminal  being  used. 

The  USET  option  BALL'  refers  to  Trackball  input 
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Subroutine  UALPHA 


FUNCTION: 

This  routine  sets  the  terminal  to  alphanumeric  mode  so  that  character  output  will  appear 
on  the  control  device 

CALLING  SEQUENCE: 

CALL  UALPHA 

OPTIONS  which  may  apply 

No  options  apply 

COMMENTS: 

This  routine  should  be  called  whenever  the  user  wants  to  insure  that  the  terminal  is  an 
alphanumeric  mode  and  to  Hush  any  buffered  I/O  (e  g.,  before  FORTRAN  I/O). 


! 
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Subroutine  UAOUT 
FUNCTION: 

This  routine  displays  one  character  at  the  current  beam  position  subject  to  the  margins 
or  windows  which  are  currently  set.  The  beam  is  positioned  ready  to  output  an  adjacent 
character. 


CALLING  SEQUENCE: 


Where 

CHAR 


CALL  UAOUT  (CHAR) 


is  an  alphanumeric  character  expressed  in  FORTRAN  Hollerith  (left- 
justified,  blank-filled)  format. 

OPTIONS  which  may  apply: 

Character  Type:  ‘HARDWARECHARACTERS’ 

‘SOFTWARECHARACTERS’ 

Alphanumeric  Margins 
Window  Settings 

COMMENTS: 

The  character  specified  by  CHAR  will  be  displayed  at  the  beam  position  subject  to 
margining  if  hardware  characters  are  specified  and  subject  to  windowing  if  software 
characters  are  specified.  Strings  of  characters  are  more  easily  and  efficiently  displayed 
using  UPRINT  or  UWRITE.  UAOUT  should  be  used  only  when  each  character  must  be 
processed  individually  before  display.  For  a detailed  description  of  margining  and  its 
effects  see  the  write-ups  for  UPRINT  and  UMARGN.  For  a detailed  description  of  the 
concepts  of  windowing  see  the  write-up  for  UWINDO. 

Programming  Notes: 


DIMENSION  XCIO.YaD.ZCin 

DATA  X/0..  10..  20..  30..  40..  50..  60..  70..  80.,  90..  100./ 

DATA  Y/0 . . 10., 20.. 30.. 40.. 50.. 60., 70.. 80., 90.. 100./ 

DATA  Z/0..  I .,4.. 9., 1 6., 25., 36.. 49., 64.. 81 .. 100./ 

CALL  USTART 

CALL.  UOUTLN 

DO  1 I - 1 , II 

CALL  UPEN  CXCIi.YCIiJ 

1 CAU.  UAOUT  C'AO 
CALL  USET  C' NOLINE O 
CALL  UMOVE  <XCI3.Z<05 
DO  2 I - 1 , 11 

CALL  UPEN  CX(I),ZCI)> 

CALL  UAOUT  C'BO 

2 CONTINUE 
CALL  UEND 
STOP 

END 


Subroutine  UAPEND 
FUNCTION: 


This  routine  copies  characters  from  the  nput  Hollerith  character  string  placing  them  in 
the  output  character  buffer.  When  the  designated  number  of  characters  have  been 
moved,  the  GCS  string  terminator  is  appended  to  the  end  of  the  string  in  the  output 
buffer. 

CALLING  SEQUENCE: 

CALL  UAPEND(COUNT,DATAIN,DATOUT) 

Where 

COUNT  is  the  number  of  characters  in  the  input  Hollerith  character  string. 

DAT  AIN  is  the  input  Hollerith  character  string. 

DATOUT  is  available  or  array  large  enough  to  hold  COUNT+1  characters 
OPTIONS  which  may  apply: 

UPSETCTERMINATOR'.CHAR) 

COMMENTS: 

This  routine  is  useful  if  a character  string  is  being  obtained  from  an  input  source  and  the 
GCS  string  terminator  has  not  been  included  at  the  end  of  the  string  It  is  assumed  that 
enough  room  is  available  in  the  output  string  buffer  area  to  insert  the  GCS  string 
terminator  character. 

DATAIN,  and  DATOUT  need  not  be  distinct. 

Programming  Notes: 


Subroutine  UARC 
FUNCTION: 

This  subroutine  draws  a part  of  a circle;  i.e.,  an  arc  with  a given  center,  radius,  and 
angular  span  starting  at  the  current  bean  or  pen  position.  The  arc  will  be  either  treated 
as  a curvilinear  line  segment  with  the  current  !ine  option  (see  UPEN  for  description  of 
line  options)  or  treated  as  a collection  of  straight  line  segments,  each  of  which  is  affected 
by  the  current  line  option.  Which  method  is  used  to  draw  the  arc  will  depend  on  whether 
CONTINUOUS'  or  'SEGMENTED'  has  been  set 

CALLING  SEQUENCE: 


CALL  UARC  (X.Y, ANGLE) 


Where 

X is  the  X or  RADIUS  of  the  center  of  the  circle  in  current  user  units. 

Y is  the  Y or  THETA  coordinate  of  the  center  of  the  circle  in  current  user 

units. 

ANGLE  the  number  of  angular  units  to  be  subtended  by  the  arc. 

OPTIONS  which  may  apply: 

Arc  Type:  'CONTINUOUS'  or  SEGMENTED' 

Angle  Units:  ‘DEGREES’,  RADIANS’,  'FIRADIANS',  GRADS'  or  'MILS' 

Line  Types:  Any  line  option  available  under  UPEN 

COMMENTS: 

The  arc  will  be  drawn  counterclockwise  if  ANGLE  is  positive  or  clockwise  if  ANGLE  is 
negative.  The  arc  will  extend  from  the  beam  or  pen  position  upon  invoking  UARC  for  the 
angle  specified  in  current  angular  units  (Degrees,  Radians,  or  Piradians). 

In  three  dimensional  applications,  the  arc  produced  by  a call  to  UARC  will  lie  in  the 
current  X-Y  plane 


Programming  Notes: 


jS&mMIMiMafe* 


CALL  USTART 
CALL  UOUTLN 

CALL  UPEN 1 C 40 . 0,  50 . 0,  ' N COORDINATES ' 3 
CALL  UMOVE  C40.0,50.0> 

CALL  UARC  C40 . 0, 20 . 0, 80 . 0) 

CALL  UWHERE  CX,Y:> 

CALL  UPENt  <X,Y, 'NCOORDINATESO 

CALL  UPEN l C 40. 0,20.0, ' NCOORDINATES  ' !> 

CALL  UEND 

STOP 

END 
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Subroutine  UASPCT  3D 

FUNCTION: 

This  routine  restricts  the  physical  d. splay  surface  boundaries  to  the  largest  area  which 
satisfies  the  provided  aspect  ratio. 

CALLING  SEQUENCE: 

CALL  UASPCT(RATIO) 


Where 

RATIO  is  a number  representing  the  ratio  of  horizontal  dimension  to  vertical 
dimension. 

OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 

If  UDIMEN  is  to  be  used,  it  should  be  called  before  UASPCT. 

The  aspect  ratio  provided  may  be  computed  as  follows: 

RATIO  « HORIZONTAL  SIZE/VERTICAL  SIZE 

I*  RATIO  - 1.,  the  resulting  display  surface  will  be  square.  If  the  resulting  display 
surface  has  an  aspect  ratio  which  is  not  the  same  as  the  physical  surface,  the  resulting 
surface  will  be  lower-left  justified  on  the  physical  display.  It  RATIO  = 0.,  the  entire 
display  surface  will  be  used  The  default  aspect  ratio  is  the  entire  display  surface 

Programming  Notes: 
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Subroutine  UAVERG 


FUNCTION: 

To  compute  a moving  average  forecast  for  time  series  data 

CALLING  SEQUENCE: 

CALL  UAVERG  (ARRAY, POINTS, FCST, TIME) 

Where 

ARRAY  is  a real  array  of  size  POINTS  which  is  the  input  time  series  data. 

POINTS  is  the  number  of  input  points. 

FCST  is  a real  array  of  size  POINTS-T1ME+1  which  is  the  time  series  moving 

average  forecast  for  periods  TIME+1  to  POINTS+1 

TIME  is  the  number  of  previous  periods  to  be  used  for  each  average. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  number  of  input  data  points  must  be  greater  than  one.  The  number  of  previous 
periods  which  are  used  to  compute  the  moving  average  must  be  greater  than  zero  and 
not  greater  than  the  number  of  input  data  points. 

Note  that  this  routine  represents  one  of  the  basic  tools  for  time  series  analysis.  The  user 
is  urged  to  consult  a qualified  reference  on  time  series  analysis  for  a complete 
description  of  the  methods  involved  in  this  routine  Other  techniques  such  as  base 
series  correction,  cyclic  analysis,  and  exponential  smoothing  are  necessary  to 
synthesize  a meaningful,  composite  forecast. 

Programming  Notes: 
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Subroutine  UAXI8 
FUNCTION: 

This  routine  creates  axes  of  the  type  specified  by  the  user.  Also  provided  are  numeric 
scaling  and  labeling  and  alphanumeric  labeling.  The  axes  are  created  in  the  UDAREA 
which  is  set  prior  to  entering  UAXIS.  The  user  window  may  also  be  modified  to  reflect  the 
actual  scaling  used.  Upon  return  from  UAXIS,  the  user  window  will  be  set  to  the  scaling 
used  to  draw  the  axes.  The  device  area  will  be  reduced  if  'EOGEAXES'  are  specified  to 
accommodate  the  labeling  requested.  If  'ZEROAXES'  or  ‘PENAXES’  are  specified,  the 
device  area  will  not  be  changed  since  the  labeling  will  appear  in  the  device  area  setting. 

CALLING  SEQUENCE: 

CALL  UAXIS  (XMIN.XMAX.YMIN.YMAX) 


Where 


XMIN 

is  the  minimum  X-value 

XMAX 

is  the  maximum  X-value 

YMIN 

is  the  minimum  Y-value 

YMAX 

is  the  maximum  Y-value 

to  be  contained  on  the  axis  in  virtual  units, 
to  be  contained  on  the  axis  in  virtual  units, 
to  be  contained  on  the  axis  in  virtual  units, 
to  be  contained  on  the  axis  in  virtual  units. 


OPTIONS  which  may  apply: 


Axis  Existence. 
Axis  Format: 
X-Axis  Labeling: 
Y-Axis  Labeling: 
Axis  Positioning: 


'NOAXES'.  'XAXIS',  'YAXIS',  ‘XYAXIS’ 

•PLAINAXES',  ‘TICAXES’,  GRIDAXES' 

‘XNUMERIC,  XALPHALABEL'.  'XBOTH',  NOXLABEL' 
'YNUMERICVYALPHALBEL',  'YBOTH',  'NOYLABEL' 

ZEROAXES',  XZEROYEDGE’,  YEDGEXZERO',  ‘XEDGEYZERO’, 
•YZEROXEOGE',  'EOGEAXES',  'PENAXES' 


Numeric  Label 


Format: 

Scaling  Type: 
X-Axis  Type: 
Y-Axis  Type: 
Coordinate  Type: 


‘IFORMAT’,  'GFORMAT',  'BESTFORMAT' 
‘AUTOSCALE',  'FULLSCALE',  'OWNSCALE' 
'LINXAXIS',  'LOGXAXIS',  'LNYAXIS' 
'LINYAXIS',  LOGAXIS',  'LNYAXIS' 

‘POLAR’,  'RECTANGULAR',  ‘LOGARITHMIC’ 


COMMENTS: 


UAXIS  is  a general  purpose  axis  drawing  and/or  plot  labeling  routine.  The  options 
indicated  above  are  independent  of  each  other  type  designations  so  that  several 
different  options  might  appropriately  be  chosen.  The  UAXIS  subroutine  is  also  used  by 
the  high-level  graphing  routines  (see  UPLOT)  to  create  their  axes 


Each  of  the  USET  options  which  effect  the  UAXIS  routine  is  described  below.  These 
same  options  apply  when  subroutine  UPLOT  or  subroutine  UPLOT1  is  called. 

Programming  Notes: 
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Axis  Existence: 


NOAXES  — Neither  the  X-axis  nor  the  Y-axis  will  be  displayed. 

XAXIS  - Only  the  X-axis  will  be  displayed 

YAXIS  — Only  the  Y-axis  will  be  displayed 

XYAXES  — both  the  X-  and  Y-axis  will  be  displayed 

Axis  Format: 

PLAINAXES  — The  axis  specified  will  appear  as  a solid  line. 

TICAXES  — The  axis  specified  will  appear  as  a ticced  line.  The  tic 

intervals  will  be  determined  from  the  current  setting  of  the 
UPSET  parameters  TICX  and  TICY  which  should  be 
specified  in  the  same  units  to  be  used  in  plotting  the 
functions.  If  a tic  interval  of  zero  is  specified,  a suitable  tic 
interval  will  be  chosen  by  UAXIS. 

GRIDAXES  — A grid  will  be  formed  in  the  display  area.  The  interval 

between  grid  lines  is  determined  in  the  same  way  as  for 
TICAXES.  In  the  case  of  log  axes,  the  tic  interval  refers  to 
the  cycle  interval.  In  the  case  of  polar  axes,  the  tic  interval 
refers  to  the  radial  distance  between  the  concentric 
circles  of  the  grid.  This  radial  distance  is  obtained  from 
the  value  of  TICX. 


Axis  Positioning: 

The  user  is  expected  to  establish  the  UDAREA  he  desires  before  calling  UAXIS.  For  all 
the  options  indicated  below,  no  part  of  the  axes  or  the  associated  labels  will  appear 
outside  the  UDAREA  which  is  set  prior  to  entry  to  UAXIS. 

EDGEAXES  — The  room  needed  for  the  ‘axes'  specified  labeling  is 

reserved  from  the  UDAREA  set  on  input  and  a new 
UDAREA  is  established  which  describes  the  remaining 
plotting  area.  The  axes  will  be  drawn  along  the  edge  of 
this  new  UDAREA. 

2EROAXES  — If  the  zero  point  falls  between  the  minimum  and  maximum 

input  values  for  either  X or  Y,  the  axes  are  drawn  along  the 
zero  value  from  border  to  border  of  the  UDAREA.  Numeric 
labels  will  appear  directly  below  the  X-axis  and  to  the  left 
of  the  Y-axis.  Alphanumeric  X-labels  will  appear  along 
the  bottom  edge  of  the  UDAREA  and  the  alphanumeric  Y- 
labels  will  appear  along  the  left  edge  of  the  UDAREA.  If 
the  zero  point  for  either  axes  is  not  between  the  minimum 
input  values,  the  axis  will  default  to  EDGEAXIS  format 

PENAXES  — The  intersection  of  the  axes  is  defined  to  be  at  the  beam 

position  upon  entry  to  UAXIS  If  the  beam  position  is 
outside  the  range  of  values  furnished  as  input,  the  axis 
which  is  outside  the  range  will  default  to  EDGEAXIS 
format. 

YEDGEXZERO  - The  X-axis  will  be  in  ZEROAXIS  format  and 

XZEROYEDGE  the  Y-axis  will  be  in  EDGEAXIS  format 

XEDGEYZERO  - The  X-axis  will  be  EDGEAXIS  format  and 

YZEROXEDGE  Y-axis  will  be  in  ZEROAXIS  format. 
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X-Axis  Typa: 

LINXAXIS 

- 

The  X-axis  is  in  linear  Cartesian  format. 

LOGXAXIS 

— 

The  X-axis  is  the  common  (base  10)  logarithmic  format. 

LNXAXIS 

- 

The  X-axis  is  in  natural  (base  e)  logarithmic  format. 

Y-Axis  Typa: 

LINYAXIS 

— 

The  Y-axis  >s  in  linear  Cartesian  format. 

LOGXAXIS 

- 

The  Y-axis  is  in  common  (base  10)  logarithmic  format. 

LNYAXIS 

- 

The  Y-axis  is  in  natural  (base  e)  logarithmic  format. 

Coordinate  Type: 

RECTANGULAR 

— 

The  input  coordinates  are  rectangular.  Logarithmic  or 
linear  axes  can  be  specified. 

POLAR 

— 

Input  coordinates  are  polar.  Only  polar  axes  will  be 
created  by  UAXIS. 

LOGARITHMIC 

Input  coordinates  are  rectangular  logarithmic.  Log- 
arithmic axes  will  be  generated  as  specified  by  the  axis 
type  options. 

X-Axis  Labeling: 

NOXLABEL 

— 

No  labeling  should  appear  along  the  X-axis. 

XNUMERIC 

Numeric  labels  should  be  created  along  the  X-axis  at  the 
tic-intervals  specified  by  TICX  (see  Axis  Format  above). 
The  values  for  the  numeric  labels  will  be  derived  as 
specified  in  the  scaling  options  described  below. 

XALPHANUMERIC 

Alphanumeric  labels  will  appear  in  the  location  specified 
in  the  Axis  Position  Option  (see  above).  The  contents  of 
the  label  can  be  specified  by  calling  UPSET  with 
arguments  'XLABEL'  and  a GCS  character  string  as  the 
value  (for  a description  of  GCS  character  strings  see 
UPRINT). 

XBOTHLABELS 

- 

Both  the  alphanumeric  and  numeric  labels  will  appear 
along  the  X-axis. 

Y-Axla  Labeling: 

NOYLABEL 

— 

No  labeling  should  appear  along  the  Y-axis. 

YNUMERIC 

labels  should  be  created  along  the  Y-axis  at  the  tic 
Intervals  specified  by  TICY  (see  Axis  Format  above).  The 
values  for  the  numeric  labels  will  be  derived  as  specified 
in  the  scaling  options  described  below. 

YALPHANUMERIC 

— 

Alphanumeric  labels  will  appear  in  the  location  specified 
by  the  Axis  Positioning  Option  (see  above).  The  contents 
of  the  label  can  be  specified  by  calling  UPSET  with 
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YBOTHLABELS 


Scaling  Type: 

AUTOSCALE 


FULLSCALE 


OWNSCALE 


Numeric  Label  Format: 

IFORMAT 


GFORMAT 


BESTFORMAT 


arguments  ‘YLABEL’  and  a GCS  character  string  as  the 
value  (for  a description  of  GCS  character  strings  see 
UPRINT). 

Both  the  alphanumeric  and  numeric  labels  will  appear 
along  the  Y-axis. 


The  range  of  values  to  be  plotted  is  examined  and  scaling 
occurs  so  that  ‘nice’  numbers  will  appear  at  the  tic  marks. 
A slight  expansion  of  the  range  may  be  necessitated  to 
incorporate  this  feature  The  UWINDO  is  set  to  the 
expanded  range  as  identified. 

The  full  range  of  values  specified  in  the  input  arguments 
are  examined.  If  zero  is  not  within  the  range  of  X values, 
the  appropriate  limit  is  extended  to  zero.  The  UWINDO  is 
set  to  this  resulting  range. 

The  UWINDO  setting  upon  entry  to  UAXIS  is  used  to 
determine  the  scale  limits.  No  change  is  made  to  the 
UWINDO  and  a zero  value  is  not  forced  to  the  X -scale. 
‘Nice’  numbers  may  not  necessarily  appear  as  numeric 
labels. 


All  numeric  labels  will  appear  as  integers.  Truncation  of 
fractional  values  may  occur. 

All  numeric  labels  will  appear  in  either  FORTRAN  F or  E 
format  depending  on  the  value. 

The  numeric  labels  will  appear  in  the  format  which  is  most 
appropriate  to  the  value.  If  the  value  is  an  integer,  it  will 
appear  as  IFORMAT.  Otherwise,  it  will  appear  as 
GFORMAT. 
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EDCEAXES 


r ai  i USTART 

CAUL  UPSET  C ' TERMINATOR 

CALL  USET  C'XBOTHLAOELS'5 

CALL  UPSET  C'XLABEL'. ' EDCEAXES* O 

CALL  UAXIS  C-6.32.4.00.-63.4. IE0.4S8> 

CALL  UEND 

STOP 

END 


r?Ai  i USTART 

CALL  UPSET  C * TERMINATOR ' , '3 
CALL  USET  C'ZEROAXESO 
CALL  USET  C ' XBOTHL ABELS O 
CALL  UPSET  C ' XLABEL ' , ' ZERO AXES ; ' 3 
CALL  UAXXS  C-S.,2.,-C.,4.> 

CALL  UENP 

STOP 

END 
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PA<  i USTART 

CALL  UPSET  C' TERMINATOR'. ',  'i 
CALL  USET  C * PEN AXES * > 

CALL  USET  C ' XBOTHLABELS ' 5 
CALL  UPSET  C'XLABEL'. 'PENAXES; '} 
CALL  UMOVE  C-3..2.5 
CALL  UAXIS  C-3.,2.,-6.,4.> 

CALL  UENO 
S 


rAi  i UfiTART 

CALL  UPSET  ('TERMINATOR', ' j 

CALL  UPSET  C ' XLABEL ' , ' POLAR  SRIDj'5 

CALL  USET  C ' POLAR ' > 

CALL  USET  C'CRIDO 
CALL  USET  C'XBOTO 
CALL  USET  C ' ZERO AXIS'  5 
CALL  UAXIS  C 8.,  360. > 

CALL  UEND 

STOP 

END 
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Subroutine  UBAR 
FUNCTION: 

This  routine  draws  a general  purpose  bar  graph.  The  current  user  display  area  will  be 
used  and  the  bar  graph  will  be  drawn  and  scaled  according  to  user  specifications. 

CALLING  SEQUENCE: 

CALL  UBAR  (ARRAY.PTS, LABELS, XMAXL) 


Where 


ARRAY  is  a real  array  of  data  points  froir  which  the  bar  graph  is  drawn. 

PTS  is  a real  constant  or  variable  which  is  the  number  of  elements  in  ARRAY. 


LABELS  is  an  array  of  labels  for  the  elements  within  the  bar  graph. 

XMAXL  is  a real  constant  or  variable  which  is  the  maximum  length  of  a label  or 
longest  label  in  the  LABELS  array. 

OPTIONS  which  may  apply: 


X-Axis  Labeling. 
Y-Axis  Labeling: 
Display  Area: 
Axis  Existence: 
Axis  Format: 


'XNUMERIC'  ‘X ALPHANUMERIC'  XBOTH’  ‘NOXLABEL’ 
'YNUMER1C'  ^ALPHANUMERIC'  'YBOTH'  'NOYLABEL' 
'NEWSCALE'  'OLDSCALE' 

'NOAXES' 

‘TICAXES’ 


COMMENTS: 


UBAR  will  place  the  labels  from  the  label  array  on  the  individual  bars  starting  from  the 
bottom  up  All  input  data  is  normalized  sc  that  each  input  value  will  appear  as  a 
percentage  of  the  total  of  the  data  array  The  specification  of  anything  other  than 
'TICAXES'  will  cause  plain  axes  to  be  drawn  The  specification  of  'NOAXES’  will  cause 
suppression  of  graphic  output  so  that  only  the  labels  and  values  will  appear 

Programming  Notes: 
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TYPICAL  LANGUAGE  UTILIZATION 


DIMENSION  DATAC75 

CHARACTER  LABELS* t 0C75 

DATA  DATA/4. ,30. ,48.. 10. .2. .2. ,4./ 

DATA  LABELS/' ALGOL;'.  'COBOL,  '.'FORTRAN,',  'PASCAL, '. 'JOVIAL, 
f*ti  i USTART 

CALL  UPSET  C' TERMINATOR', 

CALL  U8ET  C'XBOTHLABELSO 

CALL  UPSET  C'XLABEL'. 'TYPICAL  LANGUAGE  UTILIZATION; ' 3 
CALL  UBAR  CDATA, 7 . , LABELS, 10.7 
CALL  UEND 


Subroutine  UBELL 


Interactive 


FUNCTION: 

This  routine  causes  an  audible  alarm  (bell)  to  sound  at  the  terminal. 

CALLING  SEQUENCE: 

CALL  UBELL 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

Terminals  which  have  no  audible  device  may  simulate  the  alarm  by  sending  a visual 
message  to  the  terminal 
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Subroutine  UCALL 


3D 


FUNCTION: 

This  routine  invokes  an  already  constructed  data  structure.  The  request  coordinate 
system  transformation  is  established  and  then  each  element  of  the  structure  is 
executed. 

CALLING  SEQUENCE: 

CALL  UCALL(X,Y,SX,SY,RtNAME) 

Where 

X,Y  are  the  coordinates  of  the  origin  of  the  structure  coordinate  system  in 

current  coordinate  system  units. 

SX,  SY  are  the  scale  factors  of  the  structure  coordinate  system. 

R is  the  rotation  of  the  structure  coordinate  system  in  relation  to  the  current 

reference  system. 

NAME  is  the  eight  character  name  of  the  structure  being  invoked.  This  structure 
must  be  defined  in  the  current  'LIBRARY'  file. 

COMMENTS: 

The  current  coordinate  system  is  saved  prior  to  applying  the  structure  coordinate 
transformation.  Up  to  three  levels  of  recursive  calls  to  UCALL  can  be  handled. 

This  subroutine  can  be  used  in  a 3-D  environment  if  the  transformation  so  specified  is  to 
be  applied  only  in  the  XY  plane  of  the  current  coordinate  system. 

Programming  Notes: 
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Subroutine  UCHART 
FUNCTION. 

This  rout  ne  draw3  a grouped  ba-  chart  for  multi-valued  data.  The  current  user  display 
area  will  be  used  and  the  chart  will  be  drawn  and  scaled  according  to  user 
specifications. 

CALLING  SEQUENCE: 

CALL  UCHART(ARRAY, GROUPS, BARS, LABELS, YMAXL) 

Where 

ARRAY  is  a real  array  of  data  points  from  which  the  chart  is  drawn 

GROUPS  is  a real  constant  or  variable  which  is  the  number  of  groups 

BARS  is  a real  constant  or  variable  which  is  the  number  of  bar  graphs  in  each 

group 

LABELS  is  an  array  of  labels  for  each  group 

YMAXL  is  a real  constant  or  variable  which  is  the  maximum  length  of  a label  or  the 
length  of  the  longest  label  in  the  array  LABELS 

OPTIONS  which  may  apply: 

X-Axis  Labeling:  'XNUMERiC',  '/ALPHABETIC',  ‘XBOTH’,  'NOXLABEL' 

Y-Axis  Labeling:  ‘YNUMERIC,  ‘YALPHABETIC’,  'YBOTH',  ‘NOYLABEL’ 

Display  Area:  'NEWSCALE',  'OLDSCALE' 

Axis  Existence:  'NOAXES 

Axis  Format  'TICAXES' 

COMMENTS: 

The  specification  of  anything  other  than  ‘TICAXES'  wili  cause  plain  axes  to  be  drawn. 
The  specification  of  NOAXES'  will  cause  suppression  of  graphic  output  so  tht  only  the 
labels  and  values  will  appear.  The  X-axis  and  Y-axis  labeling  options  will  not  affect  the 
output  of  the  group  labels.  If  group  labels  are  not  desired,  then  YMAXL  should  be  set  to 
zero. 

Programming  Notes: 
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YEARS  I87S,  1076  AND  (PROJECTED)  1877 


DIMENSION  YEARSC8) 

CHARACTER  LABELSmI8C3) 

DATA  YEARS/88. ,SS.. 68. ,S8., 60. ,78.. 76.. 68., 86./ 

DATA  LABELS/ 'WDGIT  NF6*  'CORBALMITE*  '.  'T8IF  INC.  * '/ 
pai  i USTART 

CALL  UPSET  C' TERMINATOR', '*  O 
CALL  USET  C'XALPMABETIC' 5 

CALL  UPSET  C'XLABEL',  'YEARS  I87S,  1876  AND  C PROJECT  ED)  1877*0 
CALL  USET  C'YBOTHLABELSO 

CALL  UPSET  C'YLABELS', 'PROFITS  IN  MILLIONS  OF  DOLLARS* O 
CALL  UCHART  CYEARS, 3 . , 3 . . LABELS. 10.) 

CALL  UEND 

STOP 

END 
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Subroutine  UCLIP 


k 


FUNCTION: 

This  routine  tests  the  validity  of  the  clipping  parameters  and  stores  them  into  the  GCS 
COMMON  area  If  they  are  valid. 

CALLING  SEQUENCE: 

CALL  UCLIP  (XMIN.XMAX.YMIN.YMAX) 

Where 

XMIN  is  the  leftmost  edge  of  the  window. 

XMAX  is  the  rightmost  edge  of  the  window. 

YMIN  is  the  lower  edge  of  the  window. 

YMAX  is  the  upper  edge  of  the  window. 

OPTIONS  which  may  apply 
No  options  apply 
COMMENTS: 

This  routine  will  test  window  edge  parameters  for  validity  and  return  an  error  condition  to 
the  caller  if  they  are  incorrect.  If  they  are  correct,  then  the  arguments  will  be  converted  to 
the  device  basic  units  and  will  post  then  into  the  GSA  subject  to  the  limitation  cf  the 
device  space.  A flag  is  also  set  to  indicate  that  the  window  has  been  changed. 

Programming  Notes: 


Subroutine  UCLOSE 


3D 


FUNCTION: 

This  routine  causes  the  currently  open  segment/frame  to  cease  to  be  open. 

CALLING  SEQUENCE: 

CALL  UCLOSE(SEGID) 

Where 

SEGID  is  the  segment  identifier  of  the  currently  open  segment  (see  UOPEN  for 
description  o f SEGID). 

OPTIONS  which  may  apply: 

Segment/Frame  Identifier  Mode:  'FNAME',  'FNUMBER' 

COMMENTS: 

The  currently  open  segment  is  closed  irrelevant  of  the  type  of  segment  or  the  existence 
of  image  transformations.  The  closed  frame  will  replace  an  existing  segment  with  the 
same  identifier  thus  insuring  that  a complete  image  is  always  visible. 

An  error  will  be  generated  if  SEGID  does  not  agree  with  that  of  the  currently  open 
segment.  However,  the  segment  will  still  be  closed. 

Programming  Notes: 


L 
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Subroutine  UCONIC 
FUNCTION: 

This  routine  allows  the  user  tc  draw  a generalized  conic  section  having  a given  focus, 
directrix,  eccentricity,  and  starting  and  ending  sweep  positions.  The  conic  sections  that 
may  be  drawn  are  the  circular  arc,  ellipse,  parabola,  hyperbola,  and,  if  the  distance 
between  the  focus  and  the  directrix  is  zero,  point. 

CALLING  SEQUENCE: 

CALL  UCONIC  (X,Y,P,E,TH1  ,TH2) 

Where 

X is  the  X-  or  RADIUS  coordinate  of  the  focus  of  the  conic  section. 

Y is  the  Y-  or  THETA  coordinate  of  the  focus  of  the  conic  section. 

P is  the  distance  from  the  focus  to  the  directrix. 

E is  the  eccentricity. 

TH1  is  the  initial  sweep  position  in  current  angular  units. 

TH2  is  the  terminal  sweep  position  in  current  angular  units. 

OPTIONS  which  may  apply: 

CONTINUOUS’,  ‘SEGMENTED’  (see  UARC  write  up) 

Line  options  (see  UPEN  write  up) 

RADIANS’,  ‘DEGREES’,  'PIRADIANS',  GRADS'  or  MILS'  (see  UARC  write  up) 

Pen  Coordinate  Options  (see  UPEN  write  up) 

UPSET  Option:  ‘ORIENTATION’ 

COMMENTS: 

The  basis  for  UCONIC  is  the  generalized  conic  equation: 

R-  (E*P)/(1  -E*COS(THETA)) 

By  suitably  modifying  the  values  of  the  parameters  P and  E.  all  types  of  conic  sections 
can  be  created.  The  following  describes  the  effects  induced  by  different  values  of  P of  E. 

PGTO  the  focus  is  to  the  right  (below  the  directrix). 

PGTO  the  focus  is  to  the  left  (above  the  directrix). 

P - 0 the  conic  will  be  a point  at  X,Y 

E - 0 the  conic  is  a circular  arc  with  center  at  X,Y  and  RADIUS  P/2  subtending 

the  angular  range  from  the  TH1  to  TH2. 

0GT/E/GT1  the  conic  is  an  ellipse. 

/E/- 1 the  conic  is  a paabola 

/E/GT1  the  conic  is  a hyperbola. 
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EGTO  the  conic  is  oriented  along  the  X-axis 

EGTO  the  conic  is  oriented  along  the  Y-axis 


All  of  the  tine  options  and  coordinate  options  which  apply  to  UPEN  will  also  apply  to 
UCONIC.  Thus,  conic  sections  may  be  rotated  to  any  angle  by  defining  a suitable  user 
coordinate  system. 

If  a conic  section  of  360  degree  sweep  is  specified,  the  line  terminator  will  not  be  drawn 
when  ‘CONTINUOUS'  mode  has  been  specified  See  the  UARC  write  up  for  more 
information  on  the  use  of  ‘CONTINUOUS'  and  ‘SEGMENTED'  The  circle  is  a degenerate 
case  not  fully  handled  by  the  generalized  conic  equation.  For  completeness  a circle  with 
arbitrarily  assigned  RADIUS  of  P/2  will  be  generated  when  E has  a value  of  zero. 

If  an  angle  of  orientation  of  the  conic  is  specified  via  UPSET  then  the  conic  section  will 
be  oriented  as  specified  around  the  point  of  intersection  of  the  directrix  and  the  semi- 
major axis. 

In  three  dimensional  applications,  the  conic  section  drawn  by  UCONIC  will  lie  in  the 
current  XY  plane 

Programming  Notes: 
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DIMENSION  X<45.YC4>,P<4>,EC4> 

DATA  INDEX. Y8.X.Y.P.E/8.S. 73.  18. ,E8 . . 88 . . S8 . . 58. . 18.. 58.. 88., 
& 13.. -13.. -13., 13.. I ..-I I .,-1 ./ 

CAUL  USTART 
DO  1 I - 1.  2 
X8  - -1  .82 
Y8-Y8-2.ee 
DO  I 0-1,  2 

xa  — xa  ♦ 2.ee 

INDEX  - INDEX  ♦ I 

CAUL  UDAREA  CX8. <X&*2.S7>.Y8. CYB*-2.S7>> 

CALL  UOUTLN 

CALL  U CONIC  CX(IND£X>, YCIND£X},PCXNDEX),ECXND£X7,8.8.368.8} 

1 CONTINUE 
CALL  UEND 
STOP 
END 
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Subroutine  UCONTR 
FUNCTION: 

This  routine  draws  a set  of  user  specified  contours  on  a set  of  data  Z — Z(X.Y),  where  Z is 
defined  on  a regular  rectangular  array. 

CALLING  SEQUENCE: 

CALL  UCONTR(Z,X,Y,A,FX,FY, CURVE, FN) 


Where 


Z is  a real  array  having  dimensions  IFIX(FX)  by  IFIX(FY)  containing  the 

function  values. 

X is  a real  array  of  length  IFIX(FX)  containing  the  X axis  values 

Y is  a real  array  of  length  IFIX(FY)  containing  the  Y axis  values 

FX  floating  point  representation  of  the  length  of  the  X array,  also  the  leading 

dimension  of  the  Z array  in  floating  point  format 

FY  floating  point  representation  of  the  length  of  the  Y array,  also  the  second 

dimension  of  Z in  floating  point  format 

CURVE  array  containing  the  values  of  the  contours  which  are  to  be  drawn 

FN  number  of  contours  to  be  drawn.  Also,  the  length  (in  floating  point  format) 

of  CURVE 


A working  array  of  same  size  and  dimensions  as  Z. 

OPTIONS  which  may  apply: 


Coordinate  Type  Options 

Scaling  Type  Options. 
Scale  Availability  Options: 
Pen  Options: 


'RECTANGULAR',  'POLAR'.  ‘LOGARITHMIC’, 
UAXIS  Options,  (see  UAXIS  write  up) 
‘AUTOSCALE’.  'FULLSCALE',  'OWNSCALE' 
'NEWSCALE',  'OLDSCALE' 

See  UPEN  write  up 


COMMENTS: 

The  algorithm  used  in  UCONTR  is  based  on  linear  interpolation  between  the  grid  points. 

Programming  Notes: 


Subroutine  UCOSYS 
FUNCTION: 

The  specified  use'  coordinate  system  is  created  using  the  position,  scale,  and  rotation 
specified  in  the  arguments,  and  plotting  in  the  new  coordinate  system  is  automatically 
activated. 

CALLING  SEQUENCE: 

CALL  UCOSYS  (X.Y.SCLX.SCLY, ANGLE) 


Where 

X is  the  X-  or  RADIUS  coordinate  (in  the  current  coordinate  system)  of  the 

origin  of  the  coordinate  system. 

Y is  the  Y-  or  THETA  coordinate  (in  the  current  coordinate  system)  of  the 

origin  of  the  new  coordinate  system. 

SCLX  is  the  ratio  of  the  unit  length  in  the  new  X direction  to  the  unit  length  in  the 

current  X direction. 

SCLY  is  the  ratio  of  a unit  length  in  the  new  Y direction  to  the  unit  length  in  the 

current  Y direction. 

ANGLE  is  the  rotation  factor  which  is  applied  to  the  new  coordinate  system  in 
current  angular  units. 

OPTIONS  which  may  apply: 

■WORKINGAXIS’ 

REFERENCEAXIS' 

UPSET  option  ZVALUE ' 

COMMENTS: 

The  execution  of  this  subroutine  causes  the  creation  of  a new  origin  (0,0.)  at  the 
specified  position  with  respect  to  the  current  origin.  The  new  coordinate  system  is 
rotated  about  the  new  origin  by  the  specified  angle  and  has  unit  scales  in  the  X and  Y 
direction  as  specified  If  GCS  is  in  'WORKINGAXIS'  mode,  the  coordinate  system  is 
created  on  a temporary  basis  The  coordinate  system  composition  has  no  effect  on 
subsequent  coordinate  system  composition.  If  GCS  is  in  'REFERENCEAXIS'  mode,  the 
coordinate  system  composition  is  based  upon  the  current  coordinate  system.  All 
coordinate  system  or  SYSTEM'  coordinate  system.  At  any  time  the  user  can  ensure  that 
his  secondary  coordinate  system  is  composed  with  respect  to  the  system  coordinate 
system  by  the  use  of  the  following  GCS  subroutine  call: 

CALL  USET('SYSTEM’) 

In  addition,  the  above  call  may  be  used  at  any  time  to  ignore  the  current  user  coordinate 
system.  To  restore  the  current  user  coordinate  system,  the  following  GCS  subroutine 
call  is  used: 


CALL  USET  CUSERAXIS') 

In  a sense,  a user  always  has  two  user  coordinate  systems,  a permanent  or  reference 
eyetem,  and  a temporary  or  working  system  In  WORKINGAXIS'  mode,  the  working 
system  is  always  ahead  of  the  reference  system  in  a mathematical  sense  In 
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'REFERENCEAXIS'  mode,  the  working  system  is  mathematically  identical  to  the 
reference  system,  thus  no  new  coordinate  system  is  invoked  in  switching  from  reference 
system  mode  to  working  system  mode  However,  by  switching  in  the  oppos  te  direction, 
the  last  reference  system  becomes  the  current  system. 

Considerable  care  should  be  exercised  when  utilizing  the  ‘REFERENCEAXIS'  of 
cumulative  mode,  especially  in  conjunction  with  non-uniform  axis  scaling.  A coordinate 
system  which  is  superimposed  upon  a nonuniform  coordinate  system  and  rotated  by  a 
non-zero  angle  will  contain  a skew  factor  resulting  in  axes  which  are  not  normal  to  each 
other.  Graphic  output  drawn  in  such  a system,  although  mathematically  correct,  may  be 
difficult  to  understand  and  visualize 

In  three  dimension  applications,  the  invocation  of  UCOSYS  performs  a three 
dimensional  transformation  in  the  current  X-Y  plane,  specifieo  by  the  UPSET  parameter 
ZVALUE".  with  a scale  factor  of  1 in  the  Z direction,  and  rotation  factors  of  0 around  the 
X and  Y axis. 

Programming  Notes: 
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CALL  USTART 
CALL  UOUTLN 

CALL  UCOSYS  CEB . , 50 . , t . , I . , 0 O 
I - l 

108  CALL  UMOVE  C0..-I0O 
CALL  OPEN  C 20.. -IPO 
CALL  UPEN  C20..I0O 
CALL  UMOVE  C22..9  0 
CALL  UPEN  C0..20O 
CALL  UMOVE  CE..-SO 
CALL  URECT  C8, , I .) 

IF  Cl  .EO.  2>  CO  TO  980 
CALL  UCOSYS  C50 ..50.,  — I .,1  .,0.5 
1-2 
GO  TO  tOO 
908  CONTINUE 
CALL  UENP 
STOP 
END 
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CALL  USTART 

CALL  UWINDO  C-l . # I0.,-I . „ 10. 3 

CALL  UOUTLN 

CALL  AXIS 

CALL  UHOVE  C0..0.3 

CALL  USETT  C 'REFERENCE O 

CALL  UCOSYS  C2 . , 5 . , .5, I . , 0 . 5 

CALL  UPENt  (0 . , 0 . , ' DARROW ‘ ) 

CALL  AXIS 

CAU  UHOVE  C0..0.5 

CALL  UCOSYS  C6 . . I . . I . . 1 . . 30. > 

CALL  UPENI  C0..0., 'DARROW '> 

CALL  AXIS 

CALL  UEND 

STOP 

END 

SUBROUTINE  AXIS 
CALL  UHOVE  C-l ..0.5 
CALL  UPENI  C I . , 0 . , ' LARROW ' > 
CALL  UHOVE  C0.,-l .> 

CALL  UPEN  C0 . , I . ) 

RETURN 


Subroutine  UCOUNT 


FUNCTION: 

This  routine  returns  the  length  of  the  input  data  as  the  number  of  characters  required 
when  displaying  the  data  using  UPRINT. 

CALLING  SEQUENCE: 

CALL  UCOUNT(DATA, COUNT) 

Where 

DATA  contains  input  information  ready  for  display  by  UPRINT. 

COUNT  returns  the  number  of  characters  which  will  be  displayed  when  printing 

DATA  on  the  display  surface. 

OPTIONS  which  may  apply  : 

Alphameric  Output  Option:  'TEXT',  'REALNUMBER',  ‘INTERGERNUMBER’, 

XYCOORDI NATES’,  XYZCOORDINATES ' 

Numeric  Precision  Option:  UPSET  option  PRECISION' 

COMMENTS: 

More  information  about  the  option  which  apply  may  be  found  under  UPRINT.  In 
conjunction  with  UQUERY  to  determine  current  character  size,  this  routine  can  be  used 
to  provide  special  character  string  positioning. 

Programming  Notes: 


Subroutine  UCRCLE 
FUNCTION: 


This  routine  draws  a circle  whose  center  is  at  the  point  specified.  The  current  beam 
position  is  not  affected 

CALLING  SEQUENCE: 

CALL  UCRCLE  (X.Y.RADIUS) 

Where 

X is  the  X-  or  RADIUS  coordinate  in  current  user  units 

Y is  the  Y-  or  THETA  coordinate  in  current  user  units. 

RADIUS  is  the  radius  of  the  circle  in  current  user  units. 

OPTIONS  which  may  apply 

’CONTINUOUS'  or  SEGMENTED' 

Pen  Options  (See  UPEN  write  up) 

UPSET  ZVALUE ' option 

COMMENTS: 

The  circle  created  by  UCRCLE  will  appear  as  either  a continuous  line  or  a collection  of 
line  segments  depending  on  whether  the  user  has  specified  'CONTINUOUS'  or 
SEGMENTED  If  'CONTINUOUS'  has  been  specified,  the  circle  will  appear  as  a single 
circular  line  segment  of  the  line  type  of  which  is  obtained  from  the  current  pen  option. 
There  will  not  be  any  type  of  line  terminator  generated  however,  if  'SEGMENTED'  is 
specified,  then  the  circle  will  appear  as  an  approximation  with  each  line  segment  of  the 
approximation  taking  on  the  characteristic  defined  by  the  current  pen  option.  The 
terminator  indicated  will  appear  at  the  end  of  each  line  segment  in  the  approximation. 

A call  to  UCRCLE  in  a three  dimensional  graphics  application  program  will  result  in  a 
circle  being  drawn  in  the  current  X-Y  plane,  specified  by  the  UPSET  option  'ZVALUE’. 

Programming  Notes: 


L 
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CAUL  USTART 
CALL  UOUTLN 

call  ucrcle  co.^o.^eo.j 

CALL  UCRCLE  CEO., 0.,50.) 
CALL  UCRCLE  CIO0. ,0.,S0. > 
CALL  UCRCLE  CI0O. „ SO. . 60 . > 
CALL  UCRCLE  C 100 . , 1 00. , 50. 3 
CALL  UCRCLE  C60 . , 100. , 50 . > 
CALL  UCRCLE  CO.,  I0O.,S0. 5 
CALL  UCRCLE  CO. ,SO . ,EO. > 
CALL  UCRCLE  C50. .S0..20. 7> 
CALL  UEND 
STOP 
END 


Subroutine  UDAREA 


FUNCTION: 

This  routine  defines  the  boundaries  of  the  device  display  area  into  which  the  output 
appearing  in  the  user  window  into  virtual  space  will  appear 

CALLING  SEQUENCE: 

CALL  UDAREA  (XM1N.XMAX.YMIN.YMAX) 

Where 

XMIN  is  the  minimum  X-value  in  device  absolute  rectangular  units  in  the 

SYSTEM  coordinate  system. 

XMAX  is  the  maximum  X-value  in  device  absolute  rectangular  units  in  the 
SYSTEM  coordinate  system. 

YMIN  is  the  minimum  Y-value  in  device  absolute  rectangular  units  in  the 

SYSTEM  coordinate  system. 

YMAX  is  the  maximum  Y-value  in  device  absolute  rectangular  units  in  the 
SYSTEM  coordinate  system. 

OPTIONS  which  may  apply  : 

'INCHES’,  ‘CENTIMETERS',  PERCENTAGEUNIT',  'RASTER',  'FONT' 

COMMENTS: 

This  routine  works  in  conjunction  with  UWINDO  to  define  the  mapping  that  takes  place 
between  virtual  space  and  device  space.  UDAREA  should  be  used  for  setting  aside  a 
specific  region  of  the  device  display  area  for  displaying  graphical  output  created  in  the 
virtual  space  defined  by  UWINDO.  While  performing  pen  or  beam  movements  in  virtual 
space,  any  output  which  intersects  the  UWINDO  boundaries  will  be  truncated  at  that 
point.  For  a complete  description  of  the  windowing  concept,  see  UWINDO. 

The  units  used  to  describe  the  desired  region  of  the  display  surface  should  be  device, 
rectangular,  and  absolute  Any  of  the  device  unts  may  be  used  (eg.,  'INCHES', 
‘CENTIMETERS,’  etc  ).  If  either  the  maximum  X or  maximum  Y specification  are  less  than 
the  minimum  X or  minimum  Y respectively,  an  error  message  will  be  generated  (see  Error 
Appendix  for  details)  and  the  UDAREA  specification  in  effect  prior  to  entry  to  UDAREA 
will  be  retained 

Programming  Notes: 


pai  i USTART 

CALL  UDAREA  C2. # 10. .8 . . 8 . 7 
CALL  USET  < 'SOFTWARE' 7 
CALL  UPSET  C ■'HORIZONTAL  SIZE',  78.5 
CALL  UPSET  C 'VERTICAL  SIZE', 88.5 
CALL  USET  C'LSO 
CALL  UOUTLN 
CALL  UMOVE  088. ,58.7 
CALL  UPEN  C58. ,58. > 

CALL  UOAREA  C8 . . t .6.8 . .3. 7 
CALL  U3WHER  CX.Y.Z7 
CALL  UOUTLN 
CALL  UMOVE  088.. 58. 7 
CALL  UPEN  C68..58.7 
CALL  UDAREA  C8. , I .6. 4. , 4.57 
CALL  UOUTLN 
CALL  UMOVE  088. ,58. 7 
CALL  UPEN  (58 . , 58 . 7 
CALL  UEND 
STOP 
END 
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Subroutine  UDELET 

FUNCTION: 


3D 


This  routine  deletes  an  existing  retained  segment  and  removes  its  image  from  display 
surface. 

CALLING  SEQUENCE: 

CALL  UDELET(SEGID) 

Where 

SEGID  is  the  segment  identifier  of  the  segment  to  be  deleted  (see  UOPEN  for  a 
description  of  SEGID). 

OPTIONS  which  may  apply: 

Segment/Frame  Identifier  Mode  ‘FNAME’,  FNUMBER’ 

Segment  Posting  Mode:  ‘DELAYED',  ‘IMMEDIATE’ 

COMMENTS: 

The  image  of  the  deleted  segment  will  be  immediately  removed,  if  visible,  from  the 
display  surface  if  the  segment  posting  made  is  ‘IMMEDIATE’.  Otherwise,  the  image  will 
not  be  removed  until  the  next  required  screen  erase.  This  will  occur  when  UPOST  or 
UERASE  is  executed  or  if  UDELET  or  UMODFY  (to  change  a segment  attribute  to 
‘INVISIBLE’)  is  called  with  the  segment  posting  mode  as  IMMEDIATE’, 

Programming  Notes: 


i 

i 
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Subroutine  UDIMEN 
FUNCTION: 

This  routine  adjusts  the  physical  boundaries  of  the  display  surface  for  those  devices 
which  have  variable  size  plotting  surface  (e.g.,  drum  plotters,  or  dot-matrix  printers)  All 
calls  to  this  routine  are  ignored  for  devices  having  a fixed  display  surface. 

CALLING  SEQUENCE: 

CALL  UDIMEN  (XMAX.YMAX) 

Where 

XMAX  is  the  maximum  addressable  coordinate  in  the  X-direction  in  current  device 
units. 

YMAX  is  the  maximum  addressable  coordinate  in  the  Y-direction  in  current  device 
units. 

OPTIONS  which  may  apply: 

Device  unit  type  INCHES’,  ’CENTIMETERS'.  'FONTUNITS',  'PERCENTUNITS' 
‘RASTERUNITS’ 

COMMENTS: 

Most  display  devices  have  fixed  dimensions  in  which  graphics  output  can  be  placed.  For 
these  devices,  a call  to  UDIMEN  will  have  no  effect.  However,  for  some  devices  such  as 
drum  plotters  or  dot-matrix  printer  which  can  plot  on  a whole  roll  of  paper,  it  is  usually 
convenient  to  select  a portion  of  the  roll  of  paper  to  which  to  plot.  The  maximum  physical 
boundaries  of  this  portion  of  the  roil  may  be  set  by  this  routine  Normally  UDIMEN  should 
only  be  called  immediately  following  a call  to  UERASE  or  USTART.  For  devices  which 
are  effected  by  a call  to  UDIMEN,  the  default  display  surface  is  the  largest  square  which 
can  be  addressed  using  the  standard  size  display  medium 

CAUTION: 

A call  to  UDIMEN  will  change  the  size  of  PERCENTUNITS' 


CCASSETTE  CONTROL:  Not  necessary  to  call  USET  ('DEVICE') 

RESTART’  — Start  read 

RSTOP’  - Stop  read 

WSTART'  - Start  write 

WSTOP’  — Stop  write 

Programming  Notes: 
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Subroutine  UDOIT 


I 


Interactive 


FUNCTION:  ' 

This  subroutine  enables  the  user  to  do  various  page  layouts  and  control  a cassette 
recorder  such  as  the  Tektronix  4923 

CALLING  SEQUENCE: 

CALL  UDOIT  (ACTION) 


Where 


ACTION  is  a Hollerith  string  that  indicates  some  function  to  perform 

ACTIONS 

Must  have  called  USET  ( DEVICE  ) 


ALARM’ 

ALPHAMODE' 

AUDIBLE' 

BACKSPACE' 

BEEP' 

BELL' 

BLIP' 

BOTTOM' 

BSPb' 

CARR' 

CR' 

CRLF 

DOWN' 

ERAS' 

HOOWN' 

'HOME' 

LEFT' 

'LFbb' 

LINEFEED' 

'NEWLINE' 

NEWPAGE' 

PAGE' 

RIGHT' 

SPbb' 

SPACE' 

TABb' 

'TABH' 

'TOPb' 

UPbb' 

TABV 

TABX' 

'TBHX' 

TBVX' 

WHERE  X = 0-9 
UP' 


— Sounds  the  audible  alarm 

— Sets  alphamode 

— Sounds  the  audible  alarm 

— Move  back  one  character  space 

— Sounds  the  audible  alarm 

— Sounds  the  audible  alarm 

— Sounds  the  audible  alarm 

— Move  to  bottom  margin 

— Same  as  backspace 

— Do  a carriage-return 

— Do  a carriage-return 

— Do  a carriage-return  then  a line-teed 

— Do  a line-feed 

— Erase  ihe  screen 

— Home  to  the  bottom 

— Home  to  the  top 

— Move  to  the  left  margin 

— Do  a line-feed 

— Do  a line-feed 

— Do  a carriage-return  then  a line-feed 

— Erase  the  screen 

— Erase  the  screen 

— Move  to  right  margin 

— Move  over  one  hardware  character  space 

— Move  over  one  hardware  character  space 

— Tab  to  next  horizontal  tab  setting 

— Tab  to  next  horizontal  tab  setting 

— Move  to  top  margin 

— Move  to  top  margin 

— Tab  to  next  vertical  lab  setting 

— Tab  to  designated  setting  ( example  TBH8 ') 

(see  UPSET) 

— Move  up  one  vertical  hardware  character  position 
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CASSETTE  CONTROL:  Not  necessary  to  call  SJSET  ( DEVICE 

RSTART' 

— Start  read 

RSTOP ' 

— Stop  read 

WSTART’ 

— Start  write 

WSTOP' 

— Stop  write 

Subroutine  UDRAW 


FUNCTION: 

This  routine  draws  a solid  line  vector  from  the  current  position  to  that  specified  by  the 
input  arguments.  All  lines  are  drawn  on  the  XY-plane  specified  by  the  current  set  Z- 
value. 

CALLING  SEQUENCE: 

CALL  UDRAW(X.Y) 

Where 

X,Y  are  the  coordinates  of  the  end  point  of  the  line  in  curreny  units 

OPTIONS: 

Pen  Coordinate  Options: 

Type:  RECTANGULAR-,  POLAR' 

Log:  XLOGVYLOG',  'ZLOG',  ‘XYLOG’,  XZLOG\ ‘YZLOG’, 1 XYZLOG 
LOGARITHMIC'.  'NOLOG' 

MODE  ABSOLUTE1,  RELATIVE- 

SPACE:  ‘VIRTUAL1,  DEVICE- 

DEVICE  SPACE  UNITS:  INCHES',  'CENTIMETERS',  ‘RASTERUNITS’,  ‘FONTUNITS', 

-PERCENTUNITS1,  SPECIFICATIONUITS ' If 

COORDINATE  SYSTEM:  SYSTEM',  USER',  REFERENCE',  WORKING- 

COMMENTS: 

This  routine  is  equivalent  to  UPEN  with  line  option  ‘LNULL’.  The  current  setting  of  the 
line  option  has  no  effect  on  this  routine.  The  current  Z-value  will  be  used  to  draw  the  line 
in  three-space 

Programming  Notes: 
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Subroutine  UDRIN 


Interactive 


FUNCTION: 

This  routine  provides  a flexible  drafting  operation  which  obtains  the  end  of  the  next 
beam/pen  movement  and  the  type  of  movement  via  graphics  input,  and  tnen  performs 
the  operation  requested  Only  one  operation  will  be  performed  by  a single  call  to  UDRIN. 
If  the  operation  requested  is  not  a valid  UDRIN  operation,  then  the  input  values  are 
simply  passed  back  to  the  calling  program 

CALLING  SEQUENCE: 


CALL  UDRIN(X.Y.CHAR) 


Where 

X is  the  X-  or  RADIUS  coordinate  of  the  graphics  input  cursors  in  user  units 

entered  by  the  user  during  the  graphics  input  operation. 

Y is  the  Y-  or  THETA  coordinate  of  the  graphics  input  cursors  in  user  units 

entered  by  the  user  during  the  graphics  input  operation. 

CHAR  is  the  character  entered  which  identifies  the  type  of  operation  performed.  It 

will  be  returned  in  Hollerith  (left  justified,  blank-fill)  format. 

OPTIONS  which  may  apply: 

Any  option  which  effects  pen/beam 

Input  Device  Selection  Options:  LIGHTPEN',  'CURSORS',  etc.  (see  UGRIN) 

COMMENTS: 

UCRIN  supports  the  most  basic  line  options  for  interactive  drafting  When  UDRIN  is 
cai.ed.  the  current  graphics  input  device  (see  UGRIN)  is  enabled  The  user  positions  the 
cursor  or  tracking  cross  at  the  position  he  desires  and  strikes  the  particular  keyboard 
key  which  indicates  the  option  he  desires  The  following  table  indicates  the  UDRIN 
options  available: 

A — draws  an  arrow  from  current  beam  location  to  current  cursor  postion 
C — outputs  the  current  system  character  at  the  current  cursor  location. 

D — draws  a double  arrow  from  current  beam  location  to  cursor  position. 

E — erases  the  screen 

H — sets  Graphic  Status  Area  to  hardware  character  type 

K — sets  the  system  character  to  that  character  entered  at  next  appearance  of  cursors 
L — draws  a line  from  current  beam  position  to  cursor  position. 

M — moves  the  beam  invisibly  to  the  cursor  position. 

P — plots  a point  at  cursor  position 

S — sets  Graphics  Status  Area  to  software  character  type 
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T — draws  a ticked  line  from  current  beam  location  to  cursor  position 
X — prints  coordinates  at  cursor  position. 

Z - draws  a dashed  line  according  to  the  current  dash  specification  from  the  current 
beam  position  to  the  cursor  position. 

All  unused  characters  may  be  assigned  spec  al  meanings  by  the  user  to  support  options 
not  available  in  UDRIN  The  characters  indicated  above  are  all  upper  case  thus  all  lower 
C48e  characters  are  available  to  the  user 
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Subroutine  UEND 


i 

FUNCTION: 

The  routine  should  be  celled  to  terminate  graphics  operations  Its  effect  is  to  flush  any 
output  buffers  which  may  be  used  internally  in  GCS,  take  the  terminal  out  of  graphics 
mod6,  display  any  error  messages  whose  output  has  been  deferred,  position  the  beam  or 
pen  at  the  home  position,  and  return  to  the  user’s  program. 

CALLING  SEQUENCE: 

CALL  UEND 

OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 

Designea  as  the  means  of  terminating  graphics  operations  in  a program,  UEND  is  the 
antithesis  of  USTART.  Depending  on  the  type  of  graphics  device  being  used,  different 
operations  will  take  place  which  flush  any  buffers  which  are  partially  filled  (see 
UFLUSH),  disenable  the  graphics  operations  at  the  terminal,  position  the  pen  or  beam  in 
the  home  position,  and  dumo  any  GCS  error  messages  (see  Error  Appendix)  which  have 
been  deferred  UEND  then  returns  control  to  the  user's  program.  The  user,  if  he  wishes 
to  perform  additional  graphics  operations,  should  call  USTART  in  order  to  reenter 
graphics  mode  (see  USTART). 

Programming  Notes: 
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Subroutine  UERASE 


FUNCTION: 

This  routine  causes  the  graphics  display  device  plotting  area  to  be  cleared  of  any 
previous  output.  The  pen  or  beam  position  is  not  affected 

CALLING  SEQUENCE: 

CALL  UERASE 

OPTIONS  which  may  apply: 

Security  Banners:  'UNSECURED',  'UNCLASSIFIED',  'CONFIDENTIAL',  SECRET', 

'TOP  SECRET- 

COMMENTS: 

The  currently  specified  display  surface(s)  will  be  cleared  The  pen  or  beam  position  at 
the  time  of  the  erasure  will  not  be  changed  and  the  graphics  status  area  will  not  be 
affected 

If  a security  banner  other  than  'UNSECURED  is  selected,  the  banner  will  be  displayi  at 
the  top  and  bottom  of  each  frame  in  the  largest  hardware  character  size. 

Programming  Notes: 


Subroutine  UERROR 


I 

I 


FUNCTiON: 

This  routine  returns  the  identifier  of  the  last  GCS  error  which  occurred  and  a count  of  the 
total  number  o*  GCS  errors  which  have  occurred 

CALLING  SEQUENCE: 

CALL  UEPROR(ERLAST, TOTAL) 

Where 

ERLAST  is  the  GCS  error  number  of  the  last  GCS  error  which  occurred.  Zero  is 
returned  if  no  errors  have  occurred. 

TOTAL  is  the  number  of  GCS  errors  which  have  occurred  since  the  last  GSA 
initialization  (USTART  or  L'RESET)  or  the  last  call  to  UERROR  whichever 
occurred  most  recently. 

OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 

The  error  total  is  resef  to  zero  whenever  UERROR  is  called 

There  are  three  modes  of  error  processing  in  GCS:  'ERRORS',  'SUPPRESSED  ERRORS' 
and  'DEFERRED  ERRORS’.  The  default  mode  is  'ERRORS'  which  indicates  that  error 
messages  are  to  be  generated  as  they  occur.  'SUPPRESSED  ERRORS'  will  not  be 
generated  at  all.  The  first  10  ‘DEFERRED  ERRORS'  will  be  generated  when  UEND  is 
called.  The  GCS  Error  Mode  does  not  effect  the  execution  of  UERROR.  Regardless  of 
error  mode,  errors  will  be  counted  and  the  last  error  to  occur  will  be  saved 

Programming  Notes: 
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Subroutine  UFLUSH 
FUNCTION: 

This  routine  terminates  the  frame. 

CALLING  SEQUENCE: 

CALL  UFLUSH 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

This  routine  must  be  called  to  terminate  each  frame.  If  not  then  plot  data  may  be  lost 

Programming  Notes: 
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Subroutine  UFRAME 


FUNCTION: 

This  routine  indicates  to  GCS  that  all  graphic  commands  generated  subsequent  to  the 
invocation  of  this  subroutine  and  prior  to  the  invocation  of  the  matching  subroutine 
UFREND  are  a named  entity  which  reolaces  any  previous  occurrence  of  ihe  same  named 
entity. 

CALLING  SEQUENCE: 

CALL  UFRAME  (NAME) 

Where 

NAME  is  the  eight  character  alphanumeric  constant  or  variable. 

OPTIONS  which  may  apply: 

INVISIBLE’ 

’VISIBLE' 

COMMENTS: 

The  execution  of  this  subroutine  causes  all  subsequent  graphic  commands  to  be 
associated  with  the  argument  NAME  The  association  continues  until  the  matching 
subroutine  UFREND  is  executed  For  refresh  graphic  terminals,  the  framed  information 
replaces  the  previous  occurrence  of  the  frame  on  the  display  screen.  If  GCS  is  in 
INVISIBLE  build  mode  (default)  the  previous  occurrence  is  deleted  only  when  the  new 
occurrence  is  completely  defined  That  is,  when  the  matching  subroutine  UFREND  is 
executed  If  GCS  is  in  visible  build  mode,  the  previous  frame  is  deleted  when  UFRAME  is 
executed  and  the  new  frame  is  displayed  as  each  grapnic  command  is  generated 
Multiple  frames  can  be  defined,  but  only  one  frame  may  be  open  or  active  at  a time  This 
means  that  frame  definitions  may  not  overlap  or  be  nested. 

Programming  Note*: 
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Subroutine  UFREND 
FUNCTION: 

This  routine  indicates  to  GCS  that  the  named  set  of  graphic  commands  currently  being 
defined  (the  active  frame)  is  terminated. 

CALLING  SEQUENCE: 


CALL  UFREND  (NAME) 


Where 

NAME  is  an  eight  character  alphanumeric  constant  or  variable. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  execution  of  this  subroutine  discontinues  the  association  of  the  current  frame 
NAME  with  graphic  commands  which  are  being  generated  Since  frame  definitions  may 
not  overlap  or  be  nested,  the  argument  NAME  in  the  call  to  this  subroutine  must  agree 
with  that  in  the  immediately  preceding  call  to  UFRAME.  Any  other  name  indicates  an 
error  condition 

Programming  Notes: 
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X - 10.0 

Y - 80.0 

CALL  USTART 

CALL  UPSET  C 7 LIBRARY 1 .) 

CALL  UOUTLN 

DO  I I • I,  8 

CALL  UFRAME  {'TRIANGLE' ? 

CALL  UMOVE  CX,X> 

CALL  UPEN  CX.  CX^S.0» 

CALL  UPEN  CCX*S.05.X> 

CALL  UPEN  CX.X) 

CALL  UFREND  C 7 TRIANGLE 7 > 

CALL  U FRAME  C 7 SQUARE7? 

CALL  UMOVE  <X.Y> 

X - X ♦ 10.0 

Y - Y - 10.0 

CALL  URECT  CCX-5.0>,CY«-lE.05> 
CALL  UFREND  < 7 SQUARE 7 3 
I CONTINUE 
CALL  UENO 
STOP 
END 
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Subroutine  UGRIN 


Interactive 


FUNCTION: 

This  routine  activates  a graphics  input  device  at  the  terminal  and  returns  to  the  user  the 
coordinates  specified  and  an  alphanumeric  character  which  may  be  specified  by  the 
user  or  derived  from  the  actions  of  the  input  device 

CALLING  SEQUENCE: 

CALL  UGRIN  (X.Y.ICHAR) 

Where 

X ia  the  X-  or  RADIUS  coordinate  of  the  point  specified  by  the  input  device  in 

user  units. 

Y is  the  Y-  or  THETA  coordinate  of  the  point  specified  by  the  input  device  in 

user  units. 

ICHAR  is  the  alphanumeric  entered  by  the  user  or  provided  by  the  device  in 
Hollerith  (left-justified,  blank-filled)  format. 

OPTIONS  which  may  apply: 

'CURSOR'.  'JOYSTICK'.  'LIGHTPEN  , 'TABLET',  'KEYBOARD',  'FUNCTIONKE Y', 
MOUSE'.  BALL' 

Graphic  Input  Device  Options 

COMMENTS: 

UGRIN  is  the  user's  general  purpose  graphics  input  routine.  It  is  designed  to  support  any 
of  the  input  devices  which  may  be  available  on  any  particular  terminal.  For  terminals 
with  more  than  one  graphics  input  device,  each  type  of  device  can  be  supported 
separately  Should  the  user  request  a device  which  is  not  available,  the  principal 
graphic  input  device  will  be  enabled  Terminals  with  no  graphics  input  device  simulate 
graphics  input  by  reading  the  coordinates  and  the  character  from  the  keyboard.  In  this 
case,  the  coordinates  must  be  entered  in  absolute,  rectangular,  raster  units . 

The  graphics  input  device  which  the  user  wishes  enabled  should  be  requested  prior  to 
calling  UGRIN  by  setting  the  USET  option  for  the  device  A list  of  devices  is  indicated 
under  'Options  which  may  apply'  above  USTART  will  initialize  the  device  selection  to 
the  primary  graphics  input  device  for  the  terminal 

When  UGRIN  is  called,  an  indication  that  the  graphics  input  device  has  been  enabled 
will  appear  This  indication  may  be  a tracking  cross  or  cursors  which  appear  on  the 
screen,  a ready  light  which  turns  on,  or  some  other  recognizable  object  At  this  point,  the 
user  should  position  the  cursor  or  tracking  cross  to  the  desired  location  and  signal  the 
end  of  the  operation  in  the  manner  required  by  the  device  This  may  consist  of  striking  a 
keyboard  character,  removing  the  input  device  (pencil)  from  the  input  surface,  applying 
pressure  to  the  input  device  pencil,  or  some  other  means  For  exact  details  for  a 
particular  device,  see  the  System  Manual  If  graphics  input  is  being  simulated,  enter  the 
coordinates  and  the  character  from  the  keyboard  upon  request  from  the  program  When 
the  end  of  graphics  input  has  been  signaled,  the  graphics  input  enabled  indicator  will 
disappear 
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The  coordinates  returned  to  the  user's  program  in  arguments  X and  Y will  be  in  the  units 
which  are  currently  set  in  the  Graphics  Status  Area.  These  values  are  suitable  for  direct 
entry  as  UPEN  arguments  The  character  which  has  been  entered  will  be  in  standard 
FORTRAN  ho'lerith  format  ^left-justified,  blank-filled)  and  is  suitable  for  use  in 
FORTRAN  LOGICAL  IF  statements  for  interrogation  or  as  input  to  USET  or  UAOUT 


CHARACTER  CHAR* I 
CALL  USTART 
CALL  UOUTLN 

1 CALL  UGRXN  CX.Y.CHAR) 

IF  CCHAR  .EQ.  'S')  CALL  UPENI  CX,Y. 'LINEO 

IF  CCHAR  .EQ.  '!')  CALL  UHOVE  CX,Y3 

IF  CCHAR  .EQ.  ' D ')  CALL  UPENI  CX, Y, 'DASH' > 

IF  CCHAR  .EO.  'E')  GO  TO  2 

GO  TO  l 

2 CALL  UEND 
STOP 

END 
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Subroutine  UHISTO 
FUNCTION: 


To  draw  a histogram  of  the  specified  number  of  bars  from  the  user  data  e'ray  The 
histogram  will  be  drawn  in  the  current  user  display  area  and  will  be  scaled  arid  labeled 
as  the  user  has  specified  The  display  area  will  be  reduced  by  the  size  of  the  labels  if 
eny. 


CALLING  SEQUENCE: 


CALL  UHISTO  (ARRAY, POINTS, BARS) 


Where 


ARRAY  is  a real  array  of  data. 

POINTS  is  a real  constant  or  variable  which  is  the  number  of  elements  in  ARRAY. 
BARS  is  a real  constant  or  variable  which  is  the  number  of  bars  in  the  histogram. 

OPTIONS  which  may  apply: 

AXIS  EXISTENCE:  'NOAXES',  'XAXIS\  YAXIS',  XYAXIS' 

AXIS  FORMAT.  'PLAINAXIS',  TICAXiS 

X-AXIS  LABELING:  ‘XNUMERIC’,  'XALPHABETIC’,  'XBOTH'  NOXLABEL' 

Y-AXIS  LABELING:  'YNUMERIC',  'XALPHABETIC',  ‘YBOTH’  NOXLABEL' 

SCALING  TYPE:  'AUTOSCALE',  'FULLSCALE',  'OWNSCALE' 

DISPLAY  AREA:  'NEWSCALE',  ‘OLDSCALE’ 

COMMENTS: 

UHISTO  is  a general  purpose  histogram  drawing  and  labeling  routine.  The  options 
indicated  above  are  independent  of  each  other  so  that  several  different  options  may 
appropriately  be  chosen.  When  the  statistics  for  the  histogram  are  developed,  each 
interval  is  assumed  to  be  closed  on  the  lower  end  and  open  on  the  upper  end  The  last 
interval  is  closed  on  the  upper  end.  That  is,  for  example,  the  value  of  2 0 will  fall  in  the 
range  of  2.0  to  3.0  rather  than  1 .0  to  2.0. 

Programming  Notes: 


SUMMARY  OF  OPTIONS: 


Axis  Existence: 

NOAXIS 

— Neither  the  X-axis  of  the  Y-axis  nor  the  histogram  will  be 
displayed. 

XAXIS 

— Only  the  X-axis  will  be  displayed 

YAXIS 

— Only  the  Y-axis  will  be  displayed. 

XYAXIS 

— Both  the  X-  and  the  Y-axis  will  be  displayed. 

PLAINAXIS 

— The  X-axis  will  appear  as  a solid  line 

TICAXIS 

— The  X-axis  will  appear  as  a ticked  line.  The  lie  interval  will  be 
one  unit.  Note  that  only  the  X-axis  format  is  involved.  The  Y- 
axis  will  always  remain  plain.  The  GRIDAXIS  option  is  not 
supported  If  GRIDAXIS  is  selected,  the  option  will  revert  to 
PLAINAXIS. 

X-Axis  Labeling: 

NOXLABEL 

— No  labeling  should  appear  along  the  X-axis 

XNUMERIC 

— Numeric  labels  should  be  created  along  the  X-axis.  The  tic 
interval  will  be  determined  by  UHISTO  so  that  the  number  of 
labels  which  appear  on  the  X-axis  will  be  maximized 

X ALPHANUMERIC 

— Alphanumeric  labels  will  appear  at  the  lower  edge  of  the 
display  area  in  which  the  histogram  is  drawn.  The  contents  of 
the  label  can  be  specified  by  calling  subroutine  UPSET  with 
arguments  'XLABEL'  and  a GCS  character  string  as  a value  (for 
a description  of  GCS  character  strings,  see  UPRINT). 

XBOTHLABELS 

— Both  the  alphanumeric  and  numeric  labels  will  appear  along 
the  X-axis 

Y-Axis  Labeling: 

NOYLABEL 

— No  labeling  should  appear  along  the  Y-axis 

YNUMERIC 

— Numeric  labels  should  be  created  along  the  Y-axis  One  label 
will  be  created  for  each  bar  of  the  histogram.  The  numeric 
labels  consist  of  the  range  of  values  represented  by  a 
histogram  bar,  and  the  count  of  the  number  of  items  in  the 
range  (the  length  of  the  bar). 

YALPHAMERIC 

— Alphameric  labels  should  be  created  along  the  Y-axis,  at  the 
left  edge  of  the  display  area  in  which  the  histogram  is  drawn 
The  contents  of  the  label  can  be  specified  by  calling  subroutine 
UPSET  with  arguments  'YLABEL'  and  a GCS  character  string 
as  a value  (for  a description  of  GCS  character  strings,  see 
UPRINT) 
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Scaling  Type: 

AUTOSCALE 


FULLSCALE 


OWNSCALE 

Display  Area: 

NEWSCALE 

OLDSCALE 


— For  the  X-axis,  t ie  range  of  values  for  the  histogram  will  be  from 
zero  to  a number  larger  than  the  size  of  the  largest  bar.  For  the 
Y-exis,  the  rer.ge  of  values  to  be  histogrammed  is  examined  so 
that  'nice'  numbers  will  appear  at  the  bar  intervals.  The  range 
may  be  expanded  to  include  these  values  The  UWINDO  is  set 
to  the  expanded  range  as  identified 

— For  the  X-axis,  the  range  of  values  for  the  histogram  will  be  from 
zero  to  a number  larger  than  the  size  of  the  largest  bar.  For  the 
Y-axis,  the  limits  of  the  histogram  will  be  the  minimum  and 
maximum  values  of  the  data  The  UWINDO  setting  is  modified 
to  reflect  the  limits  of  the  X-axis 

— For  the  X-axis,  the  left  edge  of  the  window  setting  is  used  to 
determine  the  lower  limit  of  the  histogram  The  upper  limit  is 
set  to  be  larger  than  the  lower  limit  and  larger  than  the  size  of 
the  largest  bar  The  UWINDO  setting  is  modified  to  reflect  the 
limits  of  the  X-axis  For  the  Y-axis,  the  limits  of  the  histogram 
will  be  the  upper  and  lower  Y limits  of  the  window  Histogram 
bars  outside  of  the  limit  are  windowed 


— The  histogram 's  consid  red  to  be  drawn  in  a 'new'  area.  The 
appropriate  scaling  is  performed  and  the  specified  labels  are 
produced. 

— The  histogram  is  considered  to  be  drawn  in  an  'existing'  display 
area  in  which  another  histogram  or  plot  may  exist.  No  labels 
are  produced  and  no  rescaling  occurs  This  option  is  an 
override  option  over  the  previous  alternatives 


. 


distribution  or  values  or  sine 


DIMENSION  DATAC 18005 
DATA  XN/1000./ 

DO  2 I - 1,  1000 

2 DATACI5  - SINCFLOATCI5/160.5 
CALL  USTART 
CALL  UASPCT  0.5 
CALL  USET  C ' LAR8E ' 5 
CALL  USET  C' PERCENT-UNITS '5 
CALL  UDAREA  <0 . , 1 00 . , 0 . . 1 00 . 5 
CALL  USET  C'FULLCCALE'5 
CALL  USET  C * XBOTHu  ABEL S * 5 

CALL  UPSET  C'XLABEL',  'DISTRIBUTION  OF  VALUES  OF  SINEV5 
CALL  UHISTO  CDATA, XN. 20 . 5 
CALL  UEND 
STOP 


Subroutine  UHOME 
FUNCTION: 

This  routine  moves  the  beam  to  the  hone  position. 

CALLING  SEQUENCE: 

CALL  UHOME 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  home  position  is  maintained  in  the  Graphics  Status  Area  This  position  is  normally 
the  lower  left  corner  of  the  display  suiface.  The  beam  is  moved  to  the  home  position  with 
no  visible  output  on  the  display  surface. 

Programming  Notes: 
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Subroutine  UIMAGE 


3 


FUNCTION. 

This  routine  applies  a general  two-dimensional  image  transformation  to  the  indicated 
segment/frame 


CALLING  SEQUENCE: 


CALL  UIMAGE(X,Y,SX,SY,R,SEGID) 


Where 

X,Y 

SX,SY 


is  the  new  position  of  the  segment  in  current  2D  device  units 

is  the  scale  factor  to  be  applied  along  each  axis  of  the  display  surface 


R is  the  rotation  in  current  angular  units  to  be  applied  around  the  Z-axis  of 

the  display  surface 

5EGID  is  the  identifier  of  a 'retained'  segment/frame  which  was  UOPENed  for  at 

least  general  2D  image  transformations 


OPTIONS  which  may  apply: 


Device  Units: 


Specification  Units  (UPSET): 


Angular  Units: 

Segment  Identifier  Mode 


INCHES’,  CENTIMETERS,'  ‘RASTER  UNITS,'  ‘FONT 
UNITS,'  'SPECIFICATION  UNITS,’  ’PERCENT  UNITS' 

'SPECIFICATION  UNITS,'  ^SPECIFICATION  UNITS’, 
'YSPECIFICATION  I INITS',  ^SPECIFICATION  UNITS' 

DEGREES',  'RADIANS',  'PIRADIANS',  'GRADS',  'MILS 

‘FNAME’,  ‘FNUMBER',  'SNAME',  'SNUMBER' 


COMMENTS: 


The  image  transformation  is  applied  in  the  order:  rotation  scaling,  and  translation.  If  the 
resulting  image  should  exceed  the  display  surface  address  space,  the  result  is 
undetermined 


Image  transformations  are  only  applied  if  supported  on  the  current  display  surface 
Requests  for  image  transformations  will  be  ignored  if  the  display  device  does  not 
support  this  facility  2D  transformations  will  be  applied  if  3D  transformations  are 
supported 

Programming  Notes: 
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Subroutine  UINPUT 
FUNCTION: 


Interactive 


This  routine  enables  the  user  to  read  character  data  entered  from  the  alphanumeric  Key 
board  of  the  terminal.  The  data  will  be  formatted  and  returned  to  the  user  in  one  of  five 
options.  The  options  are:  TEXT',  REALNUMBER',  'INTEGER',  OR  XYCOORDINATE' 
XYZ  COORDINATE 

CALLING  SEQUENCE: 

CALL  UINPUT  (DATA, COUNT, FLAG, OPTION) 

Where 

DATA  is  a single  variable  or  array  to  contain  either  real  number  or  a CCS  text 
string.  The  size  of  DATA  is  variable:  it  is  a single  variable  if  ‘REAL’  or 
'INTEGER'  is  specified;  it  is  a two  word  array  if  'XYCOORDINATES'  is 
specified;  and  it  is  of  variable  length  if  'TEXT'  is  specified. 

COUNT  is  a single  variable  or  constant.  If  the  user  has  specified  'TEXT'  input,  then 
COUNT  is  the  maximum  number  of  characters  returned  in  DATA.  The  size 
of  DATA  must  be  large  enough  to  contain  COUNT  characters.  The 
characters  are  returned  in  Hollerith  format;  left  justified  and  blank  filled.  If 
the  terminal  operator  inputs  fewer  characters  than  requested  in  COUNT, 
then  DATA  will  be  blank  filled  to  the  required  size.  If  the  user  has  specified 
'REAL',  'INTEGER',  'XYCOORDINATE'  or  'XYZCOORDINATE'  then  the 
value  of  COUNT  upon  entry  to  UINPUT  is  the  number  of  variables  to  be 
input.  The  size  of  DATA  must  be  large  enough  to  contain  COUNT 
variables. 

FLAG  is  a single  variable.  The  value  of  FLAG,  upon  exit  from  UINPUT,  will  be 

negative  if  the  terminal  operator  has  made  an  error  in  entering  the  numeric 
data.  In  this  case,  the  value  of  DATA  is  undefined.  If  the  required  input 
was  correct,  then  the  value  of  FLAG  is  the  number  of  elements  returned  in 
Data.  The  value  of  FLAG  is  always  less  than  or  equal  to  COUNT. 

OPTION  is  a character  constant  or  variable  which  specifies  the  format  into  which  the 
input  string  will  be  mapped.  The  format  options  are:  'TEXT',  'REAL', 
INTEGER',  'XYCOORDINATE'  or  XYZCOORDINATE'. 

OPTIONS  which  may  apply: 

Device  Switching  Options:  MESSAGEDEVICE',  PLOTDEVICE’ 

COMMENTS: 

The  input  begins  at  the  current  beam  or  alphanumeric  cursor  position.  Upon  termination 
of  UINPUT,  the  beam  position  in  effect  prior  to  its  invocation  is  restored.  For  a full 
explanation  of  the  GCS  alphanumeric  input  facility,  see  SUBROUTINE  UREAD. 
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ENTER.  HELLO 


ENTER*  I .234E+I9 


ENTER.  -123466788 


ENTER.  I .2,3.4 


HELLO 


. I234E+T I -123468788  Cl. 2.3. 47 


CHARACTER  OPTXON«4<47 

DIMENSION  COUNT C47 . PATAC67 . INDEX C 47 

DATA  COUNT. INDEX. X. Y/6. . I .. 1 .. I .. I .3. 4.6.6. .88./ 

DATA  OPTIDN/'TEXT'.'REAL'.'IHTE'.'XYCO'/ 
nAi  i ujrrMT 

CALL  UPSET  C 'TERMINATOR'. ','7 

CALL  UOUTLN 

DO  1 I - I.  4 

XDX  - XNDEXCX7 

CALL  UH0VE  CX.Y7 

CALL  UPRMTI  C'ENTER.  j'.'TEXT'J 

CALL  UXNPUT  CDATAC2PX7. COUNT CX7. PLA8. OPTION CI7 7 

IFCX . EQ . 1 7 CALL  UAPEMDCOOUNTC I > . DATACXMPEXC 1 77.DATACZNDEXC 1777 

CALL  U8CT  C OPTION Cl 7 7 

CALL  UPRINT  CX. I8..DATACXDX77 

X - X ♦ 22.6 

Y - Y - 28. 

I CONTINUE 
CALL  UEND 


Subroutine  UINVOK 
FUNCTION: 

This  invokes  an  already  constructed  GCS  data  structure.  The  current  beam/pen 
position  becomes  the  origin  of  the  structure's  coordinate  system 

CALLING  SEQUENCE: 


CALL  UINVOK  (NAME) 


Where 

NAME  is  an  eight-character  GCS  structure  name  of  an  already  defined  structure. 
OPTIONS  which  may  apply: 

Invocation  Scaling  Options  (UPSET):  'XSCALE'.  YSCALE'.  ZSCALE' 

Invocation  Rotation  Options  (UPSET):  XROTATION',  YROTATION'.  ZROTATION' 

COMMENTS: 

The  scaling  and  rotation  values  for  each  axis  of  the  structure  s coordinate  system  are 
obtained  from  the  current  settings  of  the  Invocation  Scaling  and  Rotation  Options.  The 
origin  of  the  structure's  coordinate  system  is  set  to  the  current  beam/pen  position.  A call 
to  UINVOK  is  equivalent  to  a call  using  relative  coordinates  to  U3CALL  (0  0- 
O.SX.SY.SZ.RX.RY.RZ.NAME). 
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CALL 

CALL 


CALL 

CALL 

CALL 

CALL 

CALL 


CALL 

CALL 

CALL 

CALL 


CALL 


CALL 


ATTACH  <2,  ' /TEK3DEH0/SAVE,  ' , 3. 

UBTAKT 

UASPCT  <l.> 

UUZNDO 

UP«rr  C' LIBRARY  rZLEM.> 
UTXLTY  C'LQAD',2.> 

U3H0VE  C-aa.,E..a.) 

UZNVOK  ('BOX  O 
UP«T  C'XSCALE',2.} 

U3H0VC  CB..Bwa.> 

UZNVOK  C'BOX  '> 

uner  c'zrotation',46.) 
ushovc  c-ca.,-aa.,a.> 

UZNVOK  C'BOX  O 
UPSET  C'XROTATCON'.ZE.) 

IMP  C'YROTATXON'.ZS. } 

UPSET  C'YSCALE'. .e> 

USHOVE  csa.,-aa.,a.> 

UZNVOK  C'BOX  *> 


B.XKT.X 


•fjm 
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Subroutine  ULINE 
FUNCTION: 

This  routine  creates  a line  string  on  the  current  XY-plane  by  connecting  an  array  of 
coordinates  with  lines  drawn  with  the  current  line  option. 

CALLING  SEQUENCE: 


CALL  ULINE  (X.Y.PTS) 


Where 

X is  an  array  of  length  PTS  containing  the  X-components  of  the  coordinates  of 

the  points  to  be  connected. 

Y is  an  array  of  length  PTS  containing  the  Y-components  of  the  coordinates  of 

the  points  to  be  connected. 

PTS  is  a real  variable  which  specifies  the  number  of  points  to  be  connected. 

OPTIONS  which  may  apply: 

All  pen-related  options  (see  UPEN) 

COMMENTS: 

This  routine  will  move  to  the  first  point  specified  and  then  draw  a line  to  succeeding 
points  until  the  last  point  is  reached.  The  pen  or  beam  will  be  left  at  the  last  point. 

This  routine  is  the  complement  of  the  UAXIS  routine.  UAXIS  may  be  used  to  create  an 
axis  and  a plotting  environment.  ULINE  can  then  be  used  to  plot  within  this  environment. 

In  three-dimension  applications,  the  line  drawn  by  ULINE  will  lie  in  the  current  XY  plane. 

Programming  Notes: 
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Subroutine  ULINFT 
FUNCTION: 


This  routine  fits  a linear  equation  to  the  specified  input  data  in  the  least  squares  sense 
and  returns  the  slope  and  intercept  of  the  equation. 

CALLING  SEQUENCE: 

CALL  ULINFT  (X,Y,XN,S.YI) 

are  an  array  of  XN  elements  which  is  the  X component  of  the  data  points  to 
be  fitted. 

are  an  array  of  XN  elements  which  is  the  Y component  of  the  data  points  to 
be  fitted. 

is  the  number  of  points  to  be  fitted 
is  the  slope  of  the  line  which  is  fitted  to  the  data  points, 
is  the  intercept  of  the  line  which  is  fitted  to  the  data  points. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  number  of  points  to  be  fitted  must  be  greater  than  one. 

Programming  Notes: 


Where 

X 

Y 

XN 

S 

YI 


■ 
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DIMENSION  XC20), YC20) 

DO  I®  I - I,  20 

XCI)  - FLOATCI— I ) / 20. 

I®  YCI)  - XCI)«m»3  - XCI3*h*2  ♦ XCI)  ♦ .2 
nAi  i usTART 

CALL  USET  C 'PERCENT  UNITS') 

CALL  USET  C 'SOFTWARE  CHARACTERS') 
CALL  UPSET  C 'HORIZONTAL', .03) 

CALL  UPSET  C' VERTICAL'. .06) 

CALL  UPLOT  CX.Y,1..2®..'LINE') 

CALL  ULINFT  CX.Y.2®. .SLOPE. YI) 

CALL  UNOVE  CO..YI) 

XI  - I®.  / 2®. 

CALL  USET  C 'DASHED  LINES') 

CALL  UPEN  CXI. SLOPE nXI+YI) 

CALL  UEND 


Subroutine  ULOOK 

FUNCTION: 


3D 


This  routine  allows  the  user  to  specify  a position  on  the  display  surface  in  which  will  be 
mapped  the  corresponding  portion  of  the  current  virtual  space  viewport. 

CALLING  SEQUENCE: 

CALL  ULOOK (XMIN,XMAX,YMIN,YMAX) 

Where 

XMIN,XMA  v,  YMIN,  YMAX 

are  the  boundaries  of  the  desired  display  area  in  current  device 
units. 

OPTIONS: 

Device  Coordinate  Units  - INCHES7CENTIMETERS7PERCENTUNITS' 

'FONTUNITS7RASTERUNITS' 

COMMENTS: 

This  routine  first  sets  the  UDAREA  to  the  input  argument  boundary  area.  It  then 
calculates  the  location  of  these  boundaries  using  the  current  UWINDO  setting  to  obtain  a 
new  UWINDO  setting  which  represents  the  corresponding  portion  of  the  virutal  space 
viewport. 


Subroutine  ULSTSQ 
FUNCTION: 


This  routine  fits  a polynomial  ecuation  to  the  input  data  by  the  method  of  least  squares 
and  returns  the  coefficients  of  the  fitted  equation. 

CALLING  SEQUENCE: 

CALL  ULSTSO  (X.Y.XN.COEFF) 


is  an  array  of  XN  elements  which  are  the  X components  of  the  points  to  be 


is  an  array  of  XN  elements  which  are  the  Y components  of  the  points  to  be 
fitted. 

is  the  number  of  data  points. 

is  the  array  of  polynomial  coefficients  in  descending  order,  (i.e.,  COEFF(l)) 
is  the  coefficient  tot  the  polynomial  factor  raised  to  'DECREE').  The 
number  of  coefficients  returned  is  equal  to  the  degree  of  the  polynomial  fit 
plus  one. 

OPTIONS  which  may  apply: 

UPSET  ('POLYNOMIAL',  degree) 

Where 

degree  is  the  degree  of  the  desired  polynomial  fit. 

COMMENTS: 

A request  for  a polynomial  fit  of  degree  less  than  or  one  degree,  or  greater  than  ten  is  an 
error.  The  points  to  be  fitted  must  be  in  ascending  order.  Least  squares  computations 
within  the  subroutine  are  carried  out  in  double  precision  arithmetic.  Users  are  cautioned 
against  attempting  to  perform  a high  degree  fit  with  a small  number  of  data  points. 

Programming  Notes: 


Where 

X 

Y 

XN 

COEFF 
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PARAMETER  XDESRE-7 

DIMENSION  ACIDEGRE7 , XC207 . YC2B5 

DATA  X/8.,6..  18.,  16., 28., 25., 30., 35., 40., 46., 50., 56., 00 
& 65. ,78. ,75. ,88. ,05. ,98. ,86./ 

DATA  Y/0., 8 . ,28. , 32 . , 40. , 55. ,00.  .60.  , 50. , 46 . , 40.,37 . ,35 
A 37. . 42. .4®. ,58. .68. ,92., 85./ 

CALX.  USTART 
pai  i UOUTLN 

CALL  UPSET  < ' POLYNOMIAL  ' , FLOAT CXDEQRE— I 7 5 
DO  2 I -J,  28 
XN  - FLOATCI7 
CALL  USET  C'N*'7 
CALL  UPEN  CXCX7, YCX77 
CALL  USET  C' LINE' 7 
2 CONTINUE 

CALL  UMOVE  <8.8,8.87 
CALL  ULSTSQ  CX,Y,XN,A7 
DO  5 I -I,  188 
Y8  - ACt  7 
X8  - FLOAT CI7 
XK  ■ X8 

DO  4 U - 2.  IDECRE 
Y0  - ACU7  • XK  ♦ Y8 
XK  - XK  m X8 

4 CONTINUE 

CALL  UPEN  CX8, Y87 

5 CONTINUE 
CALL  UEND 


Subroutine  UMARGN 
FUNCTION: 


This  routine  sets  the  left,  right,  top,  and  bottom  alphanumeric  margins  for  hardware 
characters  to  the  device  dimensions  specified. 

CALLING  SEQUENCE: 

CALL  UMARGN  (XLEFT.XRIGHT.YBOTTM.YTOP) 

Where 

XLEFT  is  the  X-coordinate  of  the  location  of  the  left  margin  in  device,  rectangular, 
absolute  user  units. 

XRIGHT  is  th  X-coordinate  of  the  right  margin  in  device,  rectangular,  absolute  user 
units. 

YBOTTM  is  the  Y-coordinate  of  the  bottom  margin  device,  rectangular,  absolute  user 
units 

YTOP  is  the  Y-coordinate  of  the  top  margin  in  device,  rectangular,  absolute  user 

units. 

OPTIONS  which  may  apply: 

INCHES',  'CENTIMETERS',  PERCENTUNITS’,  'FONT',  'RASTER' 

COMMENTS: 

The  margins  specified  refer  to  the  device  coordinate  system  and  apply  only  to  the  output 
of  hardware  characters.  Software  characters  will  be  affected  by  the  margin  settings 
when  UPRINT/UPRNT  is  called  using  DEVICE  coordinates  If  the  right  margin  position 
specified  is  less  than  the  left  margin  position,  the  margin  is  not  changed  and  an  error 
message  is  generated  (see  Error  Appendix).  Similar!'  if  the  top  margin  position 
specified  is  not  greater  than  the  bottom  margin,  the  margin  is  not  changed  and  an  error 
message  is  generated. 

Programming  Notes: 
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pai  i USTART 

CALL  UPSET  C 'TERMINATOR',';  '> 

CALL  USET  C' PERCENT  UNITS' 3 
CALL  UOUTLN 

CALL  UP AREA  CSS. ,70. ,40. ,70.7 

CALL  UOUTLN 

CALL  USET  C 'DEVICE' 7 

CALL  UMARQN  CCS . . 78 . .40. , 7®. > 

CALL  UPRINT  CCS.. 70., 'THIS  IS  AN  EXAMPLE  OF  THE  NARQXNIN6 
AEFFECTS  WITHIN  A DEFINED  UDAREAi'I 
CALL  UEND 
STOP 
END 
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Subroutine  UMENU 
FUNCTION: 


Interactive 


This  routine  displays  a menuboard  containing  up  to  ten  options  which  are  offered  tor 
selection.  The  user  selects  an  option  using  the  terminal's  graphics  input  device  (if  it  has 
one)  or  Keyboard  (if  it  doesn't).  The  number  of  the  option  selected  is  returned  to  the  user 

CALLING  SEQUENCE: 


CALL  UMENU  (OPTNO.OPTNAM.SELECT) 


Where 


OPTNO  is  a FORTRAN  REAL  variable  whose  absolute  value  indicates  the  number  of 
options  available  and  whose  sign  determines  whether  the  menuboard 
already  is  being  displayed.  A positive  value  indicates  that  the  menuboard 
should  be  created;  a negative  value  indicates  that  the  menuboard  is  already 
being  displayed. 

OPTNAM  is  an  array  containing  the  eight-character  names  of  the  options  for  this 
menu.  These  names  need  not  have  GCS  string  terminators.  There  must  be 
one  name  for  each  option. 


SELECT 


is  the  identifying  number  of  the  option  chosen  by  the  user  which  is 
returned  to  the  calling  program. 


OPTIONS  which  may  apply: 

Hardware  Character  Size  SMALL',  MEDIUM'.  'LARGE'.  'EXTRALARGE'  (see  UPRINT). 
Graphics  Input  Device:  CURSORS',  KEYBOARD',  etc  (see  UGRIN). 

COMMENTS: 

The  menuboard  is  normally  displayed  on  the  left  side  of  the  plotting  surface.  If  the 
device  has  no  graphics  input  device,  then  the  menu  is  displayed  alphanumerically  on  the 
control  device.  The  identification  numbers  have  been  designed  so  that  the  value 
returned  to  the  user  is  a REAL  number  whose  INTEGER  value  is  suitable  for  use  as  a 
COMPUTED  GO  TO  index.  If  the  user  selects  outside  of  the  displayed  menu  elements, 
the  user  is  asked  to  select  an  option  again. 
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Subroutine  UMODFY  3D 

FUNCTION: 

This  routine  modifies  the  setting  of  segment  attributes  for  existing  retained  segments. 

CALLING  8EQUENCE: 

CALL  UMODFY(3EGID,ATID,ATVAL) 

Where 

SEGID  is  the  segment  identifier  of  the  segment  whose  attribute  is  to  be  changed 
(sec  UOPEN  for  a description  of  SEGID). 

ATID  is  the  attribute  identifier  of  the  segment  attribute  whose  setting  is  to  be 

modified.  Only  three  segment  attribute  identifiers  are  allowed: 

'VISIBILITY' 

'HIGHLIGHTING' 

'DETECTABILITY' 

Only  the  first  four  characters  are  significant. 

ATVAL  is  the  value  to  which  the  indicated  segment  attribute  is  to  be  set.  Valid 
values  are  'ON'  and  'OFF'.  Any  other  value  will  generate  an  error  and 
retain  the  existing  setting. 

OPTIONS  which  may  apply: 

Segment/Frame  Identifier  Mode  ‘FNAME’,  FNUMBER’ 

Segment  Posting  Mode:  ‘IMMEDIATE’.  ‘DELAYED’ 

COMMENTS: 

If  the  new  segment  attribute  value  involves  removing  information  from  the  display 
surface,  then  this  will  occur  immeditely  if  in  ‘IMMEDIATE’  segment  posting  mode.  If  in 
‘DELAYED’  segment  posting  mode,  the  information  will  be  removed  at  the  next  UPOST  or 
UREASE,  or  UDELET  or  UMODFY  in  ‘IMMEDIATE’  segment  posting  mode,  whichever 
occurs  first. 

Visibility  specifies  whether  the  segment  Is  to  be  displayed  or  merely  defined.  Highlights 
will  occur  by  blinking  if  possible  on  the  selected  display  device.  Otherwise,  heightened 
intensity  or  wider  lines  may  be  substituted.  Detectability  controls  whether  the  segment 
can  be  recognized  during  ‘pick’-type  input  operations 

Programming  Notes. 
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Subroutine  UMOVE 
FUNCTION: 

The  beam/pen  is  positioned  at  the  location  specified  In  the  arguments.  No  visible  output 
will  appear  on  the  termial. 

CALLING  SEQUENCE: 

CALL  UMOVE  (X.V) 

Where 

X is  the  X-  or  RADIUS  coordinate  in  current  ueer  unite. 

Y te  the  Y-  or  THETA  coordinate  in  current  user  unite. 

OPTIONS  which  may  apply: 

Pen  Coordinate  Options  (see  UPEN) 

Coordinate  System  Options  (see  UCOSYS) 

COMMENTS: 

The  execution  of  this  subroutine  has  no  effect  on  the  pen  status  option  (i.e.,  the  line/ 
terminator  specification).  The  beam  movement,  although  invisible  is  subject  to 
windowing.  The  operation  of  UMOVE  is  identical  to  that  of  UPEN  when  the  pen  status 
specified  in  NNUL'  (see  UPEN) 

Programming  Notes: 
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Subroutine  UNSAVE 
FUNCTION: 


t 


This  routine  will  restore  the  Graphics  Status  Area  (GSA)  to  its  condition  at  the  time  the 
array  from  which  the  status  is  obtained  was  loaded. 

CALLING  8EOUENCE: 

CALL  UNSAVE  (8ARRAY) 

Where 

SARRAY  is  an  array  in  which  a previous  state  of  the  GSA  was  saved  by  USAVE. 
OPTIONS  which  may  apply 
No  options  apply. 

COMMENTS: 

The  user  should  avoid  modifying  the  contents  of  the  save  array  before  he  calls  UNSAVE 
as  this  may  cause  indeterminate  effects  during  subsequent  graphics  operations.  The 
current  pen  position  is  restored  to  the  position  which  is  specified  in  the  saved  array. 

Programming  Notes: 


,.a«r'***«* 


To  request  that  the  named  frame  be  placed  in  omit  status. 


CALLING  SEQUENCE: 


CALL  UNSHOW  (NAME) 


Where 

NAME  it  an  eight  character  alphanumeric  constant  or  variable  of  a currently 
defined  frame. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 


The  execution  of  this  subroutine  causes  the  frame  NAME  to  be  deactivated  on  the  face  of 
the  display  screen.  The  frame  must  have  been  previously  defined  by  a subroutine 
UFRAME  and  subroutine  UFRAME  and  subroutine  UFREND  pair. 

Programming  Notes: 


Subroutine  UNSVPN 
FUNCTION: 

J«iY0U,ine  rea,orea  ,he  8,a,e  of  a"  pen-related  variables  in  the  Graphics  Status  Area 
(GSA)  to  their  condition  at  the  time  the  array  from  which  the  status  is  obtained  was 
loaded. 

CALLING  SEQUENCE: 


CALL  UNSVPN  (SARRAY) 


Where: 

SARRAY  ia  an  array  in  which  the  Mate  of  all  pen-related  variables  of  the  GSA  was 
saved  by  USVPN. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

For  a description  of  when  UNSVPN  should  be  used,  see  USVPN.  The  user  should  avoid 
altering  the  contents  of  the  save  array  before  he  calls  UNSVPN  as  this  may  cause 
indeterminate  effects  during  subsequent  graphics  operations.  The  current  pen  position 
is  restored  to  the  position  which  is  specified  in  the  saved  array. 

Programming  Notes: 
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Subroutine  UNSVTR 
FUNCTION: 


t 


\ 


; 


; 


This  rout'-ne  will  nstore  the  user  coordinate  system  transformation  status  of  the 
Graphics  Status  Area  (GSA)  to  its  condition  at  the  time  the  array  from  which  the  status  is 
obtained  was  loaded. 

CALLING  SEQUENCE: 


CALL  UNSVTR  (SARRAY) 


Where 

SARRAY  U an  array  in  which  a previous  state  of  the  coordinate  system  transform  was 

saved  by  USVTR. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  invocation  of  this  subroutine  will  cause  the  automatic  reactivation  of  the  user 
coordinate  system  which  was  in  effect  at  the  time  that  the  array  was  loaded.  The  user 
should  avoid  modifying  the  contents  of  the  save  area  before  he  calls  UNSVTR  as  this 
may  cause  indeterminate  effects  during  subsequent  graphics  operations. 

Programming  Notes: 
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Subroutine  UOPEN 
FUNCTION: 


30 


This  routine  creates  a segment/frame  with  the  specified  name  and  characteristics 
Subsequent  primitives  will  be  inserted  Into  the  sagment. 

CALLING  SEQUENCE. 


CALL  UOPEN(SEGID) 

Where 

SEC1D  is  a real  number  whose  integer  value  is  a positive  integer  (if  in  'FNUMBER' 
mode)  or  is  a Hollerith  string  of  eight  characters  (if  in  'FNAME'  mode) 
which  will  be  used  as  the  segment  identifier. 

OPTIONS  which  may  apply: 


Retained  Segment  Type: 


‘NOTRANSFORMATION’ 

‘2DTRANSLATI0N’ 

‘2DGENERAL’ 

^□TRANSLATION’ 

3DGENERAL’ 


Segment  cannot  be  transformed 
Segment  can  be  translated  in  20 
Segment  can  be  translated,  scaled 
and  rotated  in  20 
Segment  can  be  translated  in  30 
Segment  can  be  translated , scaled 
and  rotated  in  30 


Segment/Frame  Identifier  Mode: 
Segment  Retention  Mode: 

Segment  Visibility. 

Segment  Highlighting: 

Segment  Detectability: 


FNAME’, ’FNUMBER’ 

RETAINED’,  ’NONRETAINED’,  STORAGE’ 
REFRESHED’ 

VISIBLE, ‘INVISIBLE’ 

■NOHIGHLIGHTING’,  ’HIGHLIGHTING’ 
■UNDECTABLE’.  ‘DETECTABLE’,  SENSITIZED’, 
DESENSITIZED’ 


COMMENTS: 


^[?octS*,T.t«b,eo$rea,ed  m ei,her  01  ,w0  modes’  RETAINED’  ( REFRESHED)  and 
N .5EJ»A  NED  < STORAGE’).  Segments  which  are  RETAINED’  may  be  transformed  (if 
specified)  and  their  segment  attributes  may  be  modified  (see  description  of  segment 
attributes  below).  Segments  which  are  NONRETAINED’  are  displayed  but  their 
descriptions  are  not  saved.  Such  segments  will  disappear  when  the  display  surface  is 
erased  or  posted  (see  UPOST).  The  following  discussion  pertains  only  to  ‘RETAINED’ 
segments. 


Each  ’RETAINED’  segment  has  three  segment  attributes  associated  with  it:  visibility 
highlighting,  and  detectability.  The  visibility  attribute  determines  whether  a segment  is 
displayed  or  not.  The  highlighting  attribute  indicates  whether  the  segment  should  be 
displayed  in  some  enhanced  mode.  The  detectability  attribute  governs  the  sensitivity  of 
the  segment  to  pick’  input.  When  a segment  is  UOPENed,  the  segment  attributes  are  set 
to  current  settings  contained  in  the  GSA.  Segment  attributes  may  be  modified  at  any 
time  by  the  UMODFY  (q.v.)  function. 

After  the  segment  has  been  opened,  the  current  value  of  the  following  GCS  modes  will  be 
placed  in  the  segment: 


line  width 

intensity/brightness 


/ 


1 02 


* * 


line  style 
text  angle 

hardware  character  size 
text  font 


Image  transformations  may  be  applied  to  ‘RETAINED'  segments  if  the  display  device  is 
capable  of  supporting  these  transformations.  Attempts  to  perform  image  transforma- 
tions on  devices  which  do  not  have  the  capability  will  be  ignored  and  the  segment  will 
remain  untransformed.  It  should  be  noted  that  image  transformations  involve  moving 
Images  around  on  the  display  surface  and  are  not  the  same  as  moving  objects  in  virtual 
space.  Four  routines  are  provided  for  applying  image  transformations  as  indicated: 


Transformation 


Applied  By 


‘2DTRANSLATION’ 

‘2DGENERAL’ 

‘3DTRANSLATION’ 

‘3DGENERAL’ 


UPLACE(X.Y.NAME) 

UIMAGE(X,Y.SX.SY,R.NAME) 

U3PLAC(X.YZNAME) 

U3IMAG(X,Y,Z.SX,SY,SZ,RX.RY,RZ,NAME) 


Image  transformation  may  only  be  applied  to  a retains*  segment  which  has  been 
‘UOPEN’ed  with  the  retained  segment  type  mode  set  to  a iyps  at  least  as  general  as  the 
image  transformations  to  be  performed  on  the  segment.  The  default  type  is 
'NOTRANSFORMATIONS' 


Programming  Notes: 
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Subroutine  UORIGN 
FUNCTION: 

A user  coordinate  system  is  composed  at  the  current  beam  position.  No  rotation  or  scale 
factors  are  applied  to  the  new  coordinate  system. 

CALLING  SEQUENCE: 

CALL  UORIGN 


OPTIONS  which  may  apply: 

‘WORKINGAXIS’ 

REFERENCEAXIS’ 

COMMENTS: 

The  invocation  of  this  subroutine  causes  the  creation  of  a new  origin  (0  ,0.)  at  the  current 
beam  position  with  respect  to  the  current  origin.  The  rotation  factor  is  assumed  to  be 
zero  and  the  scale  factors  are  assumed  to  be  one.  For  a detailed  discussion  of  the  GCS 
coordinate  system  faculty,  refer  to  subroutine  UCOSYS. 


Programming  Notas: 
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Subroutine  UOUTLN 
FUNCTION: 

This  routine  draws  a line  along  each  edge  of  the  current  device  display  area  into  which 
the  user's  virtual  window  will  be  mapped,  or  around  each  edge  of  the  entire  device 
plotting  surface. 

CALLING  SEQUENCE: 

CALL  UOUTLN 

OPTIONS  which  may  apply: 

UDAREA  setting 

Coordinate  space  selection:  'VIRTUAL',  ‘DEVICE’ 

COMMENTS: 

This  routine  is  convenient  for  outlining  the  virtual  window  plotting  area  if  GCS  is  set  to 
'VIRTUAL'  and  the  physical  boundaries  of  the  device  if  GCS  is  set  to  'DEVICE'. 

Programming  Notes: 
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CALL  USTART 

CALL  UPSET  C' TERMINATOR', ',  ') 

CALL  USET  C'EXTRALAROE') 

CALL  USET  C 'PERCENT  UNITS') 

CALL  UDAREA  C30.,80., 10. ,80.) 

CALL  UOUTLN 

CALL  USET  C'BACKARROV') 

CALL  UHOVE  CO. ,30.) 
rii  i upch  C30.  38.) 

CALL  UPRINT  <30., 30., 'VIRTUAL  OUTLINE  BY  UOUTLN,') 
CALL  USET  C'ARROV') 

CALL  UPEN  <100. ,30.) 

CALL  USET  C' DEVICE') 
oai  i (JOUTLN 

CALL  USET  C'BACKARROV') 

CALL  UHOVE  CO. ,50.) 

CALL  UPEN  CSO.,50.) 

CALL  UPRINT  <30. ,50. , 'DEVICE  OUTLINE  BY  UOUTLN,') 
CALL  USET  C'ARROW') 

CALL  UPEN  088. ,50.) 

CALL  UEND 

STOP 

END 
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Subroutine  UPAUSE  Interactive 

FUNCTION 

To  suspend  execution  until  one  character  is  entered  from  keyboard. 

CALLING  SEQUENCE 

CALL  UPAUSE 

OPTIONS 

No  options  apply 


I 


Subroutine  UPEN 


FUNCTION: 

This  routine  draws  a vector  of  the  type  indicated  by  the  current  line  option  from  the 
current  beam  position  (vector  tail)  to  the  location  specified  by  the  arguments  (vector 
head).  The  current  beam  position  is  updated  to  point  to  the  head  of  the  vector 

CALLING  SEQUENCE: 

CALL  UPEN  (X,Y) 


Where 

X is  the  X-  or  RADIUS  coordinate  of  the  head  of  the  vector  in  current  user 

units. 

Y is  the  Y-  or  THETA  coordinate  of  the  head  of  the  vector  in  current  user 

units. 

OPTIONS  which  may  apply: 

See  U3PEN 

Default  Z value  - UPSET('ZVALUE'.value) 

COMMENTS: 

All  pen  movements  performed  by  GCS  are  made  in  a three  dimensional  space  For 
UPEN,  the  third  dimension  is  specified  by  the  current  X-Y  plane,  which  is  zero  by  default 

In  the  three  dimensional  version  of  GCS,  this  plane  can  be  changed  by  a call  to  UPSET, 

i.e. 

CALL  UPSET  (‘ZVALUE’.  VALUE) 

If  the  current  coordinate  system  is  in  SPHERICAL  coordinates,  then  VALUE  is  the  PHI 
component. 

Programming  Notes: 
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Subroutine  UPEN1 


FUNCTION: 

To  draw  a vector  from  the  current  beam/pen  position  to  the  specified  endpoint  and  to  set 
an  option  which  is  in  effect  only  during  the  execution  of  the  subroutine. 

CALLING  SEQUENCE: 

CALL  UPEN1  (X.Y.OPT) 

Where 

X is  the  X-  or  RADIUS  coordinate  of  the  head  of  the  pen/beam  movement 

desired. 

Y is  the  Y-  or  THETA  coordinate  of  the  head  of  the  pen/beam  movement 

desired. 

OPT  is  the  USET  option  to  be  set  only  during  the  execution  of  this  subroutine. 

OPTIONS  which  may  apply: 

Any  USET  options 

See  UPEN  for  a description  of  options  effecting  pen/beam  movements. 

COMMENTS: 

UPEN1  is  convenient  for  setting  options  effective  for  only  one  pen/beam  movement: 
although  any  USET  option  may  be  specified,  only  those  which  may  apply  to  the 
execution  of  UPEN  (see  UPEN  writeup)  will  be  effective  The  Graphics  Status  Area 
variable  which  is  modified  will  be  restored  to  its  previous  condition  after  execution  of  the 
beam/pen  movement. 

Programming  Notes: 


rAi  | USTART 

CALL  UPSET  C * TERMINATOR ' , 'j') 

CALL  USET  C'EXTRALARGEO 

CALL  UOUTLN 

CALL  UMOVE  <S..Sa.) 

CALL  UPEN  C2S . ,66 . ) 

CALL  UPEN I C40.,96., 'DARROW'> 

CALL  UPEN  C 98.. EE. 5 

CALL  UPEN1  C88..48..  'TDOUBLEARROVO 

CALL  UPEN  C09.,08.> 

CALL  UTRINT  <2S..46..'UPENI )') 

CALL  UPRINT  C6E. , 46 . , 'UPENI , • > 


Subroutine  UPIE 
FUNCTION: 

This  routine  draws  a general  purpose  pie  chart.  The  current  user  display  area  will  be 
used  and  the  pie  graph  will  be  drawn  and  scaled  according  to  user  specifications. 

CALLING  SEQUENCE: 

CALL  UPIE  (ARRAY, PTS.LABELS.XMAXL) 

Where 

ARRAY  is  a real  array  of  data  points  from  which  the  pie  chart  is  drawn 

PTS  is  a real  constant  or  variable  which  is  the  number  of  elements  in  ARRAY 

LABELS  is  an  array  of  labels  for  the  elements  within  the  pie  chart. 

XMAXL  is  a real  constant  or  variable  which  is  the  maximum  length  or  the  length  of 

the  largest  label  in  the  LABELS  array. 

OPTIONS  which  may  apply: 

X Axis  Labeling:  'XALPHABETIC'  NOXLABEL' 

Display  Area:  NEWSCALE'  OLDSCALE' 

Span:  SPAN’ 

Starting  Angle:  STARTANGLE' 

COMMENTS: 

UPIE  will  place  the  labels  from  the  label  array  on  the  individual  slices.  The  specification 
of  'XALPHABETIC'  will  cause  an  X axis  label  title  to  be  outputed.  If  the  individual  slices 
are  not  big  enough  to  contain  labels  then  the  labels  will  appear  outside  of  the  pie  chart. 
All  input  data  is  normalized  so  that  each  pie  slice  appears  of  a percentage  of  the  total. 
This  subroutine  will  terminate  with  error  indications  if  the  number  of  points  any  input 
data  value,  or  the  maximum  pie  label  size  is  invalid.  It  will  also  terminate  if  the  display 
area  is  not  of  sufficient  size. 

The  default  piechart  drawn  by  a call  to  UPIE  encompasses  a full  circle  with  the  initial 
wedge  starting  at  0.  A portion  of  the  circle  can  be  drawn  instead  by  specifying  the  angle 
subtended  by  the  graph  by  calling 

UPSET  ('SPAN', ANGLE) 

The  piechart  can  be  started  at  an  angle  other  than  zero  by  calling 

UPSET  CSTARTANGLE'.ANGLE) 

Programming  Notes: 


PASCAL  - 10* 


JOVIAL  - e* 


TYPICAL  LANOLAOe  UTILIZATION 


DIMENSION  DATA C 75 
CHARACTER  LABELS*! 8C 7 5 

DATA  DATA* Y/4. ,38. , 48. , 18. ,2. ,2. ,4.* 108./ 
DATA  LABELS/ 'ALOOLj 'COBOL; 'FORTRAN; 

* 'SINSCRIPT; 'SNOBOL; '/ 

r»*i  i USTART 

CALL  UPSET  C' TERMINATOR', ' ; '5 

r*i  i UCET  C 'X ALPHABETIC' 5 

CALL  UPSET  C'XLABEL', 'TYPICAL  LAN QUA 3E  UT 

CALL  UPZE  CPATA*  7 . * LABELS, 18.5 

CALL  USET  C' DEVICE '3 

CALL  USET  C'PERCENTUMITS'3 

CALL  UDAREA  <8.* 188. .8., 188.3 

DO  I I - 1*  7 

Y - Y - C 188.  / cLOATC7*l 33 
CALL  UHOVE  <8.*Y> 

CALL  UPRNTI  CLABELSCX5* 'TEXT'3 
CALL  UPRNTI  <'  - ;'*'TEXT'> 

CALL  UPRNTI  CDATACI*. 'INTESER'S 
CALL  UPRNTI  C'X,'*  'TEXTO 
I CONTINUE 


Subroutine  UPLACE 

FUNCTION: 


3D 


This  routine  applies  a 2-D  image  translation  transformation  to  the  indicated  segment. 

CALLING  SEQUENCE: 

CALL  UPLACE  (X,Y,SEGID) 

Where 

X,Y  is  the  new  position  of  the  segment  in  current  2-D  device  units. 

SEGID  is  the  identifier  of  a 'retained'  segment/frame  which  was  UOPENed  for  at 

least  2-D  image  translations. 

OPTIONS  which  may  apply: 

Device  Units:  'INCHES’,  'CENTIMETERS’.  'FONTUNITS',  SPECIFICATION  UNITS' 
■PERCENT  UNITS’ 

Specification  Unit  Size  (UPSET) : SPECIFICATION  UNITS’.  ^SPECIFICATION  UNITS’ 

^SPECIFICATION  UNITS’.  ^SPECIFICATION  UNITS' 

Segment  Identifier  Mode:  ‘FNAME’,  FNUMBER’,  SNAME’,  ‘SNUMBER' 

Segment  Type:  ‘NOTRANSFORMATIONS',  ‘2DTRANSLATION',  ‘2DGENERAL’ 
‘3DTRANSLATION',  ‘3DGENERAL’ 

COMMENTS: 

The  image  transormation  is  applied  to  the  specified  segment.  If  the  resulting  image 
exceeds  the  display  dimensions,  the  result  is  undetermined. 

Image  transformations  are  only  applied  if  supported  on  the  current  display  surface. 
Requests  for  image  transformations  will  be  ignored  if  the  display  device  does  not 
support  this  facility. 

Programming  Notes: 


Subroutine  UPLOT 
FUNCTION: 

This  routine  provides  a general  purpose  numeric  plotting  capability  Given  two  arrays  of 
corresponding  coordinates  of  one  or  more  curves,  it  will  scale  and  plot  these  points 
along  with  suitable  axes  and  labels  as  specified  by  the  user  within  the  current  UDAREA. 
The  virtual  window  will  be  modified  to  reflect  the  resultant  scaling 

CALLING  SEQUENCE: 

CALL  UPLOT  (X,Y, CURVES, PTS.OPTS) 

Where 

X is  the  array  of  X or  RADIUS  coordinates  for  the  points  for  all  the  curves  in 

current  user  units. 

Y is  an  array  of  Y or  THETA  coordinates  for  the  points  for  all  the  curves  in 

user  units. 

CURVES  is  a single  variable  which  indicates  the  number  of  curves  to  be  plotted. 

PTS  is  the  array  which  indicates  how  many  points  are  in  each  curve. 

OPTS  is  the  array  which  specifies  which  USET  option  will  apply  to  each  curve  as  it 

is  being  plotted.  One  option  must  be  specified  for  each  curve  and  only  the 
first  four  characters  of  the  option  name  should  be  specified. 

OPTIONS  wh'ch  may  apply: 

Coordinate  Type  Options:  RECTANGULAR',  POLAR-,  'LOGARITHMIC-  UAXIS  Options. 

(see  UAXIS) 

Scaling  Type  Options  -AUTOSCALE-,  ‘FULLSCALE’.  'OWNSCALE' 

Scale  Availability  Options:  NEWSCALE-.  OLDSCALE- 
Pen  Options:  see  UPEN 
Color  Options:  see  UPEN 

Curve  Fitting  Options:  'NOFITTING-,  'FITLINEAR',  'FITPOLYNOMIAL'.  -FITSPLINE- 


COMMENTS: 

UPLOT  is  a powerful  routine  which  provides  a flexible,  yet  easy  to  use  means  of  plotting 
tabular  data.  Plotting  will  take  place  in  'VIRTUAL'  space  and  the  'SYSTEM'  coordinate 
system  (see  UCOSYS).  The  input  arrays,  X and  Y,  contain  the  points  for  each  curve.  The 
number  of  points  in  any  curve  is  independent  of  the  number  of  points  in  any  other  curve. 
This  flexibility  is  possible  because  the  input  array  POINTS  specifies  how  many  points 
are  in  each  curve.  The  OPTS  array  will  contain  one  element  for  each  curve.  Each 
element  will  contain  the  first  four  characters  of  the  name  of  the  USET  option  which  is  to 
apply  to  the  corresponding  curve.  Normally,  these  options  will  be  line  options  (see 
UPEN).  However,  they  can  be  any  legal  USET  option.  So  special  effects  may  be  possible 
by  using  such  options  as  RELATIVE-,  a color  option  (see  below),  or  a coordinate  type 
option  in  conjunction  with  the  use  of  'OWNSCALE-.  The  choice  of  option  is  left  to  the 
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ingenuity  of  the  user.  However,  the  user  is  warned  that  some  options  may  produce 
ambiguous  or  indeterminate  results. 

THE  AXES  AND  LABELS: 

Although  there  is  no  restriction  as  to  the  number  of  points  in  any  curve,  all  points  should 
be  of  the  same  coordinate  type  since  this  specification  will  dictate  the  kind  of  axes  which 
will  appear,  and  the  mode  in  which  the  pints  will  be  plotted.  The  axes  and  labels  will  be 
created  by  a call  to  the  subroutine  UAXIS.  UAXIS  options  are  available  when  UAXIS  Is 
called  from  UPLOT.  For  a description  of  these  options  see  UAXIS. 

THE  SCALING: 

Scaling  is  performed  by  UAXIS  based  on  its  input  parameters.  If  NEWSCALE1  has  been 
specified,  the  input  parameters  will  either  be  calculated  by  UPLOT  from  the  input  arrays, 
X and  Y,  CAUTOSCALE’  or  ‘FULLSCALE’)  or  will  be  obtained  from  the  current  window 
specification  COWNSCALE’).  If  OLDSCALE’  has  been  specified  the  previous  scale 
calculations  will  be  considered  active  and  the  scaling  factors  will  not  be  recalculated. 

CURVE  FITTING: 

The  default  condition  for  automatic  curve  fitting  is  ‘NOFITTING’.  However,  the  user  can 
also  specify  a ‘FITLINEAR',  a ‘FITPOLYNOMIAL’,  a or  a 'FITSPLINE'.  For  a detailed 
description  of  the  different  methods  or  to  calculate  the  fits  yourself,  see  ULINFT  for 
•FITLINEAR',  ULSTSQ  for  ‘FITPOLYNOMIAL’,  and  UPSLIN’  for  ‘FITSPLINE'.  The  OPTS 
array  specification  used  for  the  original  points  will  also  be  used  for  the  fitted  curve. 

COORDINATE  REPEATABILITY 

The  X and/or  Y components  ol  the  coordinate  provided  may  be  held  constant  or 
repeated  for  all  curves.  Thus,  if  several  curves  are  to  be  drawn  with  identical  X values, 
but  different  Y values,  then  the  X values  need  specified  only  once,  and  the  USET  option 
'XREPEAT'  specified.  If  one  component  is  to  be  held  constant,  then  the  USET  options 
‘ XCONSTANT’  or  YCONSTANT'  may  be  specified,  and  only  a single  X or  Y value 
provided. 

Programming  Notes: 
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DIMENSION  XC3993.  YC3903.  POINTSC33 
3NTE3ER  OPTSC33 

DATA  0PTS/7LINE7. 7DASH7. 7ANUL7/ 

DATA  POINTS/19®..  108..  100./ 

DO  19  I - I.  199 

XCI3  - FLOATd3  / 10. 

Yd3  - SZNCXd33  • 6.9 
Yd<H993  - C0SCXd33  » 6.9 
YCI+2905  - SJNCXd3+3.  14169)  « 6.0 
19  CONTINUE 
rAi  i USTART 

CALL  UPSET  C'SETDASH'.t .3 

CALL  USET  C' PERCENT  UNITS 7 3 

CALL  USET  C' SOFT7 3 

CALL  UPSET  C 7 HORIZONTAL7. .33 

CALL  UPSET  C 7 VERTICAL7. .63 

CALL  USET  C 'XRFPEAT7  3 

CALL  UPLOT  CX.Y, 3.. POINTS. 0PTS3 

CALL  UEND 

STOP 

END 


Subroutine  UPL0T1 


FUNCTION: 


This  routine  provides  a general  purpose  numeric  plotting  capability.  Given  two  arrays  or 
corresponding  coordinates  of  one  curve,  it  will  scale  and  plot  these  points  along  with 
suitable  axes  and  labels  as  specified  by  the  user  within  the  current  scaling. 

CALLING  SEQUENCE: 

CALL  UPLOT1  (X.Y.PTS) 


Where 


X is  the  array  of  X-  or  RADIUS  coordinates  for  the  points  of  the  curve  in 

current  user  units. 

Y is  the  array  of  Y-  or  THETA  coordinates  for  points  of  the  curve  in  current 

user  units. 

PTS  is  a variable  specifying  the  number  of  points  in  the  curve. 

OPTIONS  which  may  apply: 

All  UPLOT  options 
COMMENTS: 

This  subroutine  will  reformat  the  input  information  to  invoke  UPLOT  to  produce  the 
curve.  See  UPLOT  for  a complete  description  of  the  options  available 

Programming  Notes: 


DIMENSION  R<38I3,THETAC38I3 
DATA  PI.W.YO/3.  1-4159206,0.5,4.71/ 

DO  I I - I.  381 

1 THETACI3  - FLOAT <13  • PI  / 180.0 
CALL  USTART 

CALL  USET  C 7 POLAR '3 
CALL  USET  < 7 RADIANS  7 3 
CALL  USET  C 7 NOAXES  7 3 
CALL  USET  C 7 NOXLAOEL 7 3 
CALL  USET  C7NOYLABEL73 
DO  3 I - I.  2 
XO  - -I .E 
YO-YO  - 1.8 
DO  3 d - I,  4 
W - W ♦ 0.C 
xo  - xe  ♦ i.s 

CALL  UDAREA  CXO. CXO+I .S3, YO.CYO+I .533 
CALL  UOUTLN 
00  2 K - I.  361 

2 RCK3  - I .2—0. 7W<A0S<COSCWMTHETA<K3 33— A0SCSINCWmTHETACK33 33 
CALL  UPLOTt  CR. THETA. 381 .03 

3 CONTINUE 
CALL  UEND 
STOP 

END 


118 


Subroutine  UPLYGN 


FUNCTION: 


This  routine  creates  a regular  ploygon  of  the  indicated  number  of  sides  and  radius 
centered  as  specified  using  the  current  line  option  to  draw  the  sides  in  the  currently 
indicated  space. 

CALLING  SEQUENCE: 

CALL  UPLYGN  (X,Y, SIDES, RADIUS) 

Where 

X is  the  X-  or  RADIUS  coordinate  of  the  center  of  the  circumscribed  circle  of 

the  polygon  in  current  user  units. 

Y is  the  Y-  or  THETA  coordinate  of  the  center  of  the  circumscribed  circle  of 

the  polygon  in  current  user  units. 

SIDES  is  the  number  of  sides  in  the  polygon. 

RADIUS  is  the  radius  of  the  circumscribed  circle  of  the  polygon  in  current  user  units. 
OPTIONS  which  may  apply: 

Line  Options 

Upset  Option  'Orientation' 

COMMENTS: 

The  polygon  will  be  drawn  centered  at  the  location  specified  by  the  input  variables  X and 
Y.  It  will  have  a radius  (i.e.„  distance  from  the  center  to  any  point)  as  indicted  by  RADIUS, 
each  side  of  the  polygon  will  be  a line  of  the  option  currently  set  in  the  GSA.  The  default 
ORIENTATION  of  zero  degrees  will  result  in  the  polygon  having  one  side  parallel  to  the 
current  X axis.  By  specifying  an  orientation  in  current  angular  units,  the  entire  polygon 
will  be  displayed  rotated  appropriately  around  its  center. 


Programming  Notes: 


DATA  SIDES, Y0/ I .0.4.7/ 

r ai  i USTART 

CAU.  UPSET  C ' TERMINATOR O 
CALL  UWINDO  C-l . I. I . 1,-1 . I. I . 15 
DO  I I - I.  2 

XB 1 .5 

Y0  - YB  - I . 8 
DO  I J ■ I,  4 
xa  - xa  ♦ i.s 
SIDES  - SIDES  ♦ I . a 

CALL  UDAREA  CX0. CX0+I .S>. YB, CY0«-1 .5?? 
CALL  UOUTLN 

CALL  UPLY6N  C0 . a, 0 . 0. SIDES, I . 03 
CALL  USET  C'TEXTO 

CALL  UPRINT  C-l .0.-1 .06, 'SIDES., O 
CALL  USET  C 'INTEGER'? 

CALL  UPRINT  C0.B,-l .OS, 

I CONTINUE 


SIDES? 


• DECREES 


30  DEGREES 


UPLYON  WITH  VARIOUS  LINE  OPTIONS  AND  SHOWING  ROTATION  OF  THE  FIGURE 


GO  DEGREES 


60  DEGREES 


CALL  USTART 

CALL  UPSET  C' TERMINATOR7, '3 
CALL  USET  < 7 PERCENT  UNITS 7 5 
CALL  USET  C 'DEVICE7 3 
CALL  UDAREA  CIO. ,40. ,00. ,100.3 
CALL  UOUTLN 

CALL  UPLYON  C2S.,7G.,3., 10.3 

CALL  UPRINT  CIS.,0C.,'O  DEGREES , '3 

CALL  UDAREA  C60., IOO., 60., 100.3 

Ml  l USET  C 7 ARROW 7 3 

CALL  UPSET  C 7 ORIENTATION 7 . 30 . 3 

CALL  UPLYON  C76.,76.,3., 10.3 

CALL  UPRINT  COC.,00., '30  DEGREES j '3 

CALL  UDAREA  C60., 100., tO.,40.3 

CALL  USET  C 7 TPOINT 7 3 

CALL  UPSET  C 'ORIENTATION 7.60. 3 

CALL  UPLYON  C76. ,2S. , 3., 10. 3 

CALL  UPRINT  C66.,I0.,'60  DEGREES j '3 

CALL  UDAREA  C 10. , 40. , 10. , 40.3 

CALL  USET  C'DDOUBLEARROW'J 

CALL  UPSET  C 7 ORIENTATION ',00.3 

CALL  UPLYON  C2S.,2S.,3., 10.3 

CALL  UPRINT  CI6.,I0.,700  DEQREES*  7 3 

CALL  UPRINT  CS., SO., 'UPLYON  WITH  VARIOUS  LINE  OPTIONS  AND 
A SHOWING  ROTATION  OP  THE  FIGURE; '3 


Subroutine  UPOINT 


3D 


FUNCTION: 

This  routine  defines  the  point  which  will  be  used  along  with  the  two  end  points  of  the  line, 
to  define  the  plane  for  line  terminators  and  tic  marks 

CALLING  SEQUENCE: 


CALL  UPOINT(X,Y,Z) 


Where 

X,Y,Z  are  the  coordinates  of  some  point  in  current  units. 

OPTIONS: 

Pen  Coordinate  Options  see  U3PEN 

COMMENTS: 

The  point  specified  is  stored  for  later  use  when  drawing  vectors  The  user  should  be 
careful  to  define  a point  which  will  not  be  colinear  with  any  line  being  drawn. 

Programming  Notes: 
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Subroutine  UPOST 

FUNCTION: 


30 


This  routine  updates  the  display  surface  to  contain  only  the  defined  visible  retained 
segments/frames,  deleting  all  non-retained  information 

CALLING  SEQUENCE: 

CALL  UPOST 

OPTIONS  which  may  apply: 

Security  Classfication  Mode:  ‘UNSECURED',  'UNCLASSIFIED',  CONFIDENTIAL' 

SECRET',  'TOPSECRET' 

Segment  Visibility  Attribute:  ('VISIBILITY',  ON  ).  ('VISIBILITY',  OFF  ) 

COMMENTS: 

| 

All  non-retained  information  will  be  cleansed  from  the  display  surface.  This  includes 
remaining  segments  made  invisible  while  in  'DELAYED'  segment  posting  mode.  Non- 
retained  information  is  considered  to  be  all  information  generated  while  not  within  a 
‘retained’  segment  or  'retained'  segments  where  visibility  attribute  has  been  set  to  ‘OFF’. 

Programming  Notes: 


Subroutine  UPRINT 


FUNCTION: 

This  subroutine  enables  the  user  to  print  information  at  the  position  specified  The  five 
(5)  options  available  to  the  user  are:  'TEXT',  REALNUMBER',  INTEGERNUMBER  , 
XYCOORDINATES'.  and  'XYZCOORDINAl cS'  The  output  characters  will  be  either 
hardware  or  software  depending  on  the  current  setting  in  the  Graphics  Status  Area 
Margining  will  occur  with  hardware  characters  and  windowing  will  occur  with  software 
characters  The  beam  will  remain  positioned  at  the  next  character  position  following  the 
last  character  sent 

CALLING  SEQUENCE: 


CALL  UPRINT  (X.Y.DATA) 


Where 

X is  the  X-  or  RADIUS  coordinate  of  the  lower  left  corner  of  the  first  character 

of  the  output. 

Y is  the  Y-  or  THETA  coordinate  of  the  lower  left  corner  of  the  first  character 

of  the  output. 

DATA  is  a single  variable  or  array  containing  either  real  numbers  or  a CCS  text 
string.  The  size  of  data  is  variable;  it  is  a single  variable  if  'REALNUMBER' 
or  'INTEGERNUMBER'  is  specified;  it  is  a two  word  array  if  'XYCOORDI- 
NATES’ is  specified;  it  is  a three  word  array  if  XYZCOORDINATES'  a re 
specified;  and  it  may  be  any  length  if  'TEXT'  is  specified. 

OPTIONS  which  may  apply: 

All  U3PRNT  options 

Default  Z value  UPSET  CZVALUE  .VALUE) 

COMMENTS: 

All  text  functions  performed  by  GCS  are  performed  a three  dimensional  space.  For 

UPRINT,  the  third  dimension  is  defined  as  the  current  X-Y  plane,  which  is  at  Z = 0,  by 

default. 

In  the  three  dimensional  version  of  GCS.  this  plane  can  be  changed  by  a call  to  UPSET. 

i.e 


CALL  UPSET  CZVALUE.VALUE) 

If  the  two  dimensional  version  of  GCS  is  used,  then  the  XY  plane  corresponds  to  the 
screer  surface 

Programming  Notea: 
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Subroutine  UPRNT1 
FUNCTION: 


This  routine  displays  the  data  provided  at  the  current  beam  position  in  the  format 
currently  specified  in  either  hardware  or  software  characters  subject  to  the  one  time 
setting  of  the  USET  option  furnished,  which  only  applies  during  the  executing  of  this 
subroutine  Upon  return,  the  beam  is  positioned  at  the  next  character  position  following 
the  last  character  produced. 

CALLING  SEQUENCE: 


CALL  UPRNT1  (DATA, OPTION) 


Where 

DATA  is  a single  variable  or  array  containing  either  real  numbers  or  a GCS  text 
string.  The  size  of  DATA  is  variable:  it  is  a single  variable  if 
REALNUMBER'  or  'INTEGERNUMBER'  is  specified;  it  is  a two  word  array 
if  'XYCOORDINATES' is  specified;  it  is  a three  word  array  if 'XYZCOORDI- 
NATES'  is  specified;  and  it  may  be  any  length  if  'TEXT'  is  specified. 

OPTION  is  a Hollerith-string  variable  or  literal  defining  the  USET  option  to  apply 
during  the  execution  of  this  subroutine. 

OPTIONS  which  may  apply: 

Same  as  those  for  UPRINT  except  that  Coordinate  System  Options  do  not  apply. 

COMMENTS: 

Calling  UPRINT1  is  equivalent  to  the  sequence  of  calling  USET  with  OPTIONS,  calling 
UPRINT  at  the  current  beam  position  with  DATA,  and  then  calling  USET  with  the 
appropriate  option  which  would  restore  the  status  changed  by  OPTION.  UPRINT1  is 
convenient  for  producing  strings  of  output  which  contain  differing  data  types. 

Programming  Notes: 
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CHARACTER  OPTION*! 0C 45 

DATA  OPTION/ 'REALNUMKR'.  ' JXTE3ER'  . 

'REALNUNBCR'.  'INTECER'/ 
CHARACTER  TITLEi»e<25/'  X - ; ' Y - 
DATA  X.Y/S..8./ 
r?Ai  i UCTART 

CALL  UPSET  <' TERMINATOR'. ' j '5 
ru  i UOUTLN 

CALL  UWXNDO  C-l ..5., -I ..5.5 
CALL  UHOVE  CS.,-.S> 

CALL  UPENI  <0..4.4. 'LARRDW'5 
CALL  UHOVE  <-.5.0.5 
CALL  UPENI  <4.4.0.. 'LARROW'5 
CALL  UPENI  <X. Y, 'NO' 5 
DO  I I - I.  4 
DO  Z U - I.  5 
X - X ♦ .10 
Y - X**2 


Subroutine  UPSET 


FUNCTION: 

This  routine  allows  the  user  to  set  parameter  options  in  the  Graphics  Status  Area  (GSA), 
Options  will  remain  set  to  the  value  specified  until  changed  by  a subsequent  UPSET  or 
USET  call  or  until  the  GSA  is  restored  during  an  UNSAVE  or  UNSVPN  call 

CALLING  SEQUENCE: 

CALL  UPSET  (OPTION, VALUE) 

Where 

OPTION  is  the  mnemonic  option  name  which  uniquely  identifies  the  option  to  be  set 
or  ia  the  first  four  characters  of  such  an  option  name. 

VALUE  is  the  parameter  value  to  be  assigned  to  the  option  being  set.  This  is  always 
either  a REAL  number  or  a character  string. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

SPme  UPSET  options  supplement  settings  available  using  USET  options.  These  are 
included  here  to  allow  a means  of  expansion  beyond  the  discrete  USET  options.  For 
example,  the  'COLOR'  UPSET  option  can  be  used  to  set  colors  not  available  under  USET. 

The  UPSET  options  flagged  by  the  notation  '3D'  indicate  that  these  are  present  only  in 
the  three  dimensional  version  of  GCS,  and  not  in  the  two  dimensional  version. 


! 
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UPSET  OPTIONS 


Value 

Is  an  angular  value  which  specifies  the  angle  of 
the  text  string  in  relation  of  the  current  X axis 
Default  value  is  0 

An  integer  indicating  the  number  of  words 
provided  in  the  attention  queue  Default  is  0 

Is  an  angular  value  which  specifies  the  orienta- 
tion of  the  up  direction  axis  with  the  sides  of  the 
window  Default  value  is  0 Meaning  that  the  up 
direction  is  parallel  whth  the  left  and  right 
window  boundaries  and  pointing  towards  the 
top  of  the  window 

Is  an  integer  which  specifies  the  color  index 
within  the  color  table  for  colored  backgrounds 
Values  0-7  are  predefined  to  represent  black, 
white,  red,  green,  yellow,  blue,  magenta,  and 
cyan,  respectively  Default  color  is  black  or 
none 

Is  a positive  value  which  specifies  the  base  of 
the  logarithms  used  to  perform  logarithmic 
scaling  Default  base  is  1 0.  This  option  sets  the 
specified  base  along  each  coordinate  compo- 
nent. 

Is  a value  between  0 and  100.  percent  indicat- 
ing the  position  in  the  range  of  possible  line 
intensity  settings  from  dimmest  to  brightest. 
Default  brightness  is  60% 

Is  a Hollerith  character  which  becomes  the 
current  system  character  The  default  system 
character  is 

Is  an  integer  which  specifies  the  color  index 
within  the  color  table.  Values  0-7  are  pre- 
defined to  represent  black,  white,  red,  green, 
yellow,  blue,  magenta,  and  cyan,  respectively 
Default  color  is  device-dependent 

Is  a value  which  indicates  the  number  of 
seconds  of  delay  required  during  generation  of 
a hard  copy  Default  value  is  device-dependent 
and  is  preset  to  the  value  required  by  the 
selected  device 

Is  a Fortran  file  number  representing  the  file 
containing  the  font  descriptors  Default  is  zero 
indicating  no  font  file  specified 
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DISTANCE- 

FONT  NAME'* 

'GREYSCALE' 

GRID  SPECIFICATION' 

HORIZONTAL  SIZE' 

INPUT  FILE' 

LABELbROTATION’ 

LIBRARY  FILE- 

LOWER' 

MARKER  INDEX- 

ORIENTATION' 

OUTPUT  FILE' 

POLYNOMIAL  DEGREE' 


Is  a value  measured  from  the  current  view  plane 
distance  base  specifying  the  position  of  the 
view  (projection)  plane.  The  default  is  0. 
measured  from  the  view  site 

Is  a Hollerith  string  indicating  the  desired 
character  font  Default  is  GCS'  which  is  the 
most  efficient  font 

Is  a value  indicating  a particular  grey  level  for 
terminals  which  support  multiple  grey  scales 
rather  than  colors 

Is  a value  containing  a dash  specification  to  be 
used  when  generating  grid  axes  Default  is  0. 
which  indicates  a solid  line  should  be  used. 

Indicates  the  width  of  a software  character 
position  in  current  user  units  Default  is  5 
virtual  units 

Is  a Fortran  file  number  indicating  which  file  will 
be  used  to  obtain  graphics  input.  The  default  is 
set  to  the  appropriate  computer-system  depen- 
dent file 

Is  the  number  of  angular  units  the  axes  labels 
are  to  be  rotated  around  the  axes 

Is  a Fortran  file  number  indicating  which  file 
should  be  used  by  the  GCS  structure  and 
segmentation  facilities  as  a random  work  file 
Default  is  0.  indicating  no  file  has  been 
provided 

Is  a Hollerith  character  which  will  be  used  by 
GCS  as  the  indication  to  shift  to  lower  case. 
Default  character  is  ">'. 

Is  an  integer  value  selecting  a marker/symbol. 
Default  marker  symbol  is  0 indicating  a point. 

Is  an  angular  value  indicating  the  display 
orientation  of  GCS  created  software  symbols 
and  figures  such  as  software  characters,  poly- 
gons, and  rectangles  Default  orientation  is  0 

Is  a Fortran  file  number  indicating  which  file  will 
be  used  for  sending  graphics  output  to  the 
display  device  The  default  is  set  to  the 
appropriate  computer  system  dependent  file 

Specifies  the  degree  of  the  polynomial  to  be 
created  in  calculating  a least  squares  fit 
through  a collection  of  points.  Default  value  is 
5. 


129 


PRECISION' 


Specifies  the  number  of  significant  digits  to 
appear  when  displaying  real  numbers  Default 
value  is  4 


'READFILE' 

'ROTATION' 

SCALEFACTOR' 

SCRIPTLEVEL' 

SETDASH' 

SIZE' 

> 


SLANTANGLE' 

- 

; 

SPAN  ANGLE' 

I * 

SPECIFICATION  UNITS' 

SPEED' 

START  ANGLE 

STRUCTURE  TABLE  SIZE' 

SUBSCRIPT  CHARACTER' 

SUPERSCRIPT  CHARACTER' 


Is  a Fortran  file  number  indicating  which  file  will 
be  used  to  obtain  non  graphic  input  The 
default  is  set  to  the  appropriate  computer 
system  dependent  file 

Same  as  ORIENTATION' 

Specifies  a scale  to  be  applied  to  GCS-created 
geometric  figures  such  as  polygons  and  rec- 
tangles 

Is  an  integer  value  indicating  the  scripting  level 
to  be  set  for  textual  output  Default  value  is  1 

Specifies  the  characteristics  of  the  dashed 
lines  to  be  plotted  by  UPEN  Default  value  is  56 

Is  a positive  integer  value  which  sets  hardware 
character  sizes  Values  of  1 through  4 corre- 
spond to  USET  options  'SMALL',  MEDIJM', 
'LARGE',  and  'EXTRA  LARGE'  respectively. 
Default  value  is  1 for  SMALL'  characters. 

Is  an  angular  value  indicating  the  amount  of 
slant  from  the  vertical  for  italicized  software 
characters  Default  value  is  approximately  18 
degrees 

Is  an  angular  value  indicating  the  portion  ot  a 
circle  to  be  occupied  by  the  pie  chart  Default 
value  is  360  degrees 

Is  a positive  value  indicating  the  number  of 
specification  units  contained  in  device  space 
for  all  directions.  Default  value  is  1000. 

Specifies  the  speed  of  the  communication  line 
in  characters  per  second  Default  value  is 
system  dependent 

Is  an  angular  value  indicating  the  starting 
position  of  the  first  wedge  of  the  pie  chart 
Default  value  is  0 

Is  an  integer  value  indicating  the  number  of 
words  in  the  user  provided  structure  table 
Default  value  is  1 00 

Is  a Hollerith  character  which  will  be  used  to 
decrease  the  scripting  level  by  1 Default 
subscript  character  is  ' '. 

Is  a Hollerith  character  which  will  be  used  to 
increase  the  scripting  level  by  1.  Default 
superscript  character  is  ' '. 
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SZMARKER' 

TABHORIZONTAL' 

'TABVERTICAL' 

TERMINATOR' 

TICINTERVAL' 

TICLENGTH' 

TICMINUS' 

TICPLUS' 

TICX' 


TICY' 

TICZ' 

UPPER' 


VERTICAL  SIZE' 

WIDTH' 

WRITE  FILE' 

XBASE  OF  LOGS' 


XLABEL' 


Is  a value  in  current  device  units  which  spec- 
ifies the  size  of  software  generated  markers 
Default  value  is  device-dependent. 

Is  an  array  of  10  elements  containing  10  tab 
positions  in  current  device  units.  Default  value 
has  all  tab  stops  set  to  zero. 

Is  an  array  of  1 0 elements  containing  1 0 vertical 
tab  positions  in  current  device  units  Default 
value  has  all  tab  stops  set  to  zero 

Is  a Hollerith  character  which  will  be  used  as 
the  GCS  string  terminator  character.  Default 
value  is  ' ' 

Specifies  the  distance  in  current  user  units 
between  tic  marks  of  a UPEN  created  tic  line 
Default  value  is  1 0 

Specifies  in  current  units  the  size  of  that  portion 
of  a tic  mark  which  lies  on  the  clockwise  side  of 
the  tic  line  Default  value  is  05  inches 

Specifies  in  current  units  the  size  of  that  portion 
of  a tic  mark  which  lies  on  the  clockwise  side  of 
the  tic  line  Default  value  is  .05  inches 

Specifies  the  distance  between  tic  marks  or 
grid  lines  along  X axes  Default  value  is  0. 
indicating  that  a 'nice'  number  should  be 
chosen 

Is  the  same  as  TICX'  for  Y axes 

Is  the  same  as  TICX'  for  Z axes 

Is  a Hollerith  character  which  will  be  used  by 
GCS  as  th*>  indication  to  shfit  to  upper  case 
Default  character  is  '<’. 

Indicate  the  height  of  a software  character 
position  in  current  user  units  Default  value  is 
seven  virtual  units 

Is  a value  in  current  units  of  the  width  of  a line 
Default  valje  is  0 indicating  a thin  line 

Is  a Fortran  file  number  indicating  which  file  will 
be  used  to  generate  non-graphic  output.  The 
default  is  set  to  the  appropriate  computer 
system  dependent  file 

Is  a positive  value  which  specifies  the  base  for 
logarithmic  scaling  along  the  X component. 
Default  value  is  10 

Specifies  the  alphanumeric  label  to  be  dis- 
played along  X axes  Default  value  is  'X  '. 
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XPERCENT' 


XROTATION' 

XSCALE' 

XSIZE' 

XSPECIFICATtON  UNITS' 

'YBASE  OF  LOGS' 

'YBASE  OF  LOGS' 

'YLABEL' 

YPERCENT 

YROTATION' 

YSCALE' 

YSIZE' 

YSPECIFICATION  UNITS’ 

ZBASE  OF  LOGS' 


Is  a value  specifying  the  portion  of  the  width  of  a 
software  character  position  to  be  occupied  by  a 
character  Default  value  is  .65  indicating  65%  of 
the  width 

Is  an  angular  value  indicating  the  amount  of 
rotation  around  the  X axis  for  UINVOK  structure 
invocations  Default  value  is  0 

Is  the  scale  factor  to  be  applied  along  the  X axis 
for  UNIVOK  structure  invocations  Default  value 
is  1 . 

Is  the  size  of  hardware  or  simulated  hardware 
character  positions  in  current  device  units. 
Default  value  is  device  = dependent  and  corre- 
sponds to  SMALL'  hardware  character  size 

Is  a positive  value  indicating  the  number  of  X 
specification  units  in  device  space  Default 
value  is  1 000 

Is  a positive  value  indicating  the  number  of  X 
specification  units  in  device  space  Default 
value  is  1000. 

Is  a positive  value  which  specifies  the  base  for 
logarithmic  scaling  along  the  Y component 
Default  value  is  1 0. 

Specifies  the  alphanumeric  label  to  be  dis- 
played along  the  Y axis.  Default  value  is  Y '. 

Is  a value  specifying  the  portion  of  the  height  of 
a software  character  position  to  be  occupied  by 
a character  Default  value  is  .65  indicating  65% 
of  the  height 

Is  an  angular  value  indicating  the  amount  of 
rotation  around  the  Y axis  for  UNIVOK  structure 
invocations  Default  value  is  0 

Is  the  scale  factor  to  be  applied  along  the  Y axis 
for  UNIVOK  structure  invocations.  Default  value 
is  1. 

Is  the  size  of  hardware  or  simulated  hardware 
character  positions  in  current  device  units. 
Default  value  is  device-dependent  and  corre- 
sponds to  SMALL'  hardware  character  size 

Is  a positive  value  indicating  the  number  of  Y 
specification  units  in  device  space  Default 
value  is  1 000 

Is  a positive  value  which  specifies  the  base  for 
logarithmic  scaling  along  the  Z component. 
Default  value  is  10 
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'ZLABEL' 


Specifies  the  alphanumeric  label  to  be  dis- 
played along  the  Z axis.  Default  value  is  Z 


ZROTATION' 

ZSCALE' 


Is  an  angular  value  indicating  the  amount  of 
rotation  around  the  Z axis  for  UINVOK  structure 
invocations.  Default  value  is  0. 

Is  the  scale  factor  to  be  applied  along  the  Z axis 
for  UINVOK  structure  invocations  Default  value 
is  1. 


'means  not  implemented 


f 


I 
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Subroutine  UQUERY 
FUNCTION: 


This  routine  obtains  the  current  setting  of  USET  or  UPSET  options  and  returns  them  to 
the  user. 

CALLING  SEQUENCE. 

CALL  UQUERY(OPTION, VALUE) 

Where 

OPTION  is  a character  string  indicating  the  USET  or  UPSET  option  value  desired. 
Valid  options  are  listed  below. 

VALUE  is  either  an  integer  array  dimensioned  to  (at  least)  10,  an  integer  scalar,  or  a 
real  scalar,  depending  on  the  option  queried. 

OPTIONS  which  may  apply: 

All  USET  and  UPSET  options 

COMMENTS: 

VALUE  is  always  a scalar  except  for  axis  titles  in  which  case  it  is  an  array  ten  elements  in 
length.  VALUE  is  a HOLLERITH  string  for  all  USET  UQUERY  options  For  UPSET  options 
with  numeric  settings,  the  value  returned  is  converted  to  the  current  corresponding  user 
units. 

Those  options  flagged  by  the  notation  '3D'  are  available  only  in  the  three  dimensional 
version  of  GCS,  and  not  in  the  two  dimensional  version. 
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UQUERY  OPTIONS 


) 


Type 

Query  Name 

Return*  (Default  in  Parentheset) 

USET 

ABUTTING' 

Page  abutting  mode  ('NONABUTTING') 

USET 

ACENTERING 

Alphanumeric  centering  CNOCENTERING) 

USET 

ADJUSTMENT 

3D 

Axis  view  adjustment  option  (plane  axis  plotted  on 
view  port  or  viewed  Irom  current  view  point) 

( XYZVIEW  ) 

USET 

ANGULARUNITS 

Current  user  angular  units  ( DEGREES') 

USET 

'ANGLE  OF  TEXT' 

Current  angle  ot  text  output  (0  ) 

UPSET 

'ASPECTRATIO' 

3D 

Display  Surface  aspect  ratio 

UPSET 

ATTENTION  QUEUE  SIZE’ 

Attention  queue  size  ( 1 00  ) 

UPSET 

BACKGROUND  COLOR' 

Background  color  index  (Black -0  ) 

USET 

BLENDMODE'* 

Color  Blending  mode  ( SUBTRACTIVE  ) 

USET 

BLINKRATE' 

Blink  rate  ( NOBLINK  ) 

UPSET 

'BRIGHTNESS' 

Display  intensity  (60%) 

USET 

'BUILD' 

3D 

Structure  build  mode  (lag  ( NOBUILD  ) 

UPSET 

CHARACTER' 

Current  system  character  as  Hollerith  string  (") 

USET 

•CLIPPING 

Device  space  clipping  flag  ( NOCLIP'  CLIP'  or 
INVERTED  ) 

USET 

COLOR 

Current  color  index  (device  dependent) 

UPSET 

'COPY  DELAY' 

Copy  delay  time  (device  dependent) 

UPSET 

'CSPACING' 

Character  spacing  mode  ( HORIZONTAL  ) 

USET 

'CURVE' 

Current  curve  approximation  mode  ( CONTINUOUS  ) 

UPSET 

DASH 

Numeric  value  corresponding  to  current  dashline 
specification  (56  ) 

USET 

DESCRIPTION 

Current  axis  option  CTICAXES  ) 

USET 

'DETECTABILITY' 

Detectability  ol  new  segments  ( DESENSITIZED  ) 

USET 

DIMENSION' 

3D 

2D  or  3D  coordinate  terminator  switch 
C2DCOORDINATES) 

UPSET 

DISTANCE' 

3D 

Distance  Irom  viewport  to  screen  plane  ( 1 50.) 

USET 

EDIT' 

3D 

Data  structure  edit  mode  ( COMPRESS  or  EXPAND  ) 

USET 

'ERRORMODE 

Error  presentation  (ERROR) 

USET 

EXECUTE' 

3D 

Structure  building  viability  ( EXECUTE  ) 

USET 

EXISTENCE 

Current  axis  existence  option  CX  YZAXES'I 

UPSET 

FACTOR 

Scale  lector  lor  GCS  created  software  symbols  (t  1 

USET 

'FITMODE 

Curve  tilling  mode  lor  autoplotting  ( NOFITTING') 

USET 

FNAMING  MODE 

Frame  naming  mode  ( FNAME  t 

UPSET 

FNTFILE  NUMBER  * 

Font  lile  number  (0  ) 

135 


UPSET 

FONT  NAME  • 

USET 

FORMAT 

USET 

GAPMODE 

UPSET 

GREYSCALE 

UPSET 

GRID 

3D 

USET 

HANDEDNESS 

3D 

UPSET 

HARDWARE 

UPSET 

HORIZONTAL 

UPSET 

INFILE 

USET 

INPUT' 

USET 

IT  ALICIZATION 

UPSET 

LABELANGLE 

USET 

LETTERTYPE 

UPSET 

LEVEL 

3D 

UPSET 

LIBRARY 

3D 

UPSET 

LIMIT' 

3D 

USET 

LINEOPTION 

UPSET 

LOWERCASE 

USET 

LOGARITHMIC 

3D 

USET 

LOGTIME  OF  APPLICATION 

USET 

LOGTYPE 

30 

USET 

MAPPINGTYPE 

3D 

USET 

MENUTYPE 

3D 

USET 

MERGE 

3D 

USET 

MESSAGEDEVICE 

USET 

MODE 

USET 

NUMERIC 

3D 

USET 

ORDER 

30 

UPSET 

ORIENTATION 

Font  name  ( GCS  ) 

Tex!  number  formal  lor  numeric  labelling 
( BESTFORMAT  ) 

Gapped  line  mode  ( ^INTERRUPTED') 

Numeric  valve  indicating  current  grey  level  (device 
dependent) 

Numeric  value  indicating  grid  axis  type  option  (0  ) 

Lett  or  right  handed  coordinate  system 
( RIGHTHANDED  I 

Current  hardware  character  size  ('SMALL'  device 
dependent) 

Current  horizontal  software  character  position  size 
(5) 

Graphics  input  (He  designation  (computer  system 
dependent! 

Graphics  input  device  medium 

Italicizalion  mode  ( NOITALICS') 

Label  angle  around  perpendicular  (0  ) 

Character  type  (HARDWARE ) 

Subscript/superscript  spacing  level  (1  ) 

Data  structure  library  tile  mode  (0  ) 

Number  ot  errors  belore  automatic  stop  0 means  no 
limit  (0  I 

Current  line  option  setting  ( LNULL  ) 

Lowercase  shift  character  as  Hollerith  string  CF  ) 

Axes  selected  tor  logarithmic  transform  (logarithmic 
translorm  switchl  ( NOLOGSCALING  I 

Time  of  application  ol  logarithmic  scaling 
(LOGSYSTEM  COORDINATES  I 

Flag  indicating  when  logarithmic  scaling  performed 
(LOGSYSTEM  LOGUSER  LOGOBJECT  > 

3D  to  2D  mapping  type  ( PERSPECTIVE  I 

Menu  board  type  ( ST  ANDARD ) 

Structure  merge  mode  switch  ( IGNORE  ) 

Destination  ot  alphanumeric  I/O  (PLOTDEVICE) 

Current  coordinate  mode  ( ABSOLU I E ) 

Numeric  labels  parallel  or  perpendicular  to  axis 
(PARALLEL) 

3D  coordinate  ystem  rotation  application  order 
CZYX) 

Angular  orientation  ol  display  ol  GCs  created 
symbols  (0 ) 
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USET 


ORIGIN 


Forced  origin  switch  lor  axis  scaling  ( ORIGIN  ) 


I 

j 

I 

i 
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UPSET 

OUTFILE' 

USET 

OUTPUTDEVICE' 

USET 

PLANE' 

3D 

USET 

PLOTSCALE' 

UPSET 

POLYNOMIALDEGREE’ 

USET 

POSITION' 

3D 

UPSET 

PRECISION' 

USET 

PROJECTION  TYPE' 

UPSET 

READ  FILE 

USET 

REPEAT' 

3D 

USET 

REWIND 

3D 

USET 

SCALE' 

USET 

SCRIPT 

3D 

USET 

SECURITY  LEVEL 

USET 

SENSITIVITY' 

3D 

USET 

SIDE 

3D 

USET 

SIZE 

UPSET 

SLANT 

3D 

USET 

SPACE 

UPSET 

SPAN' 

3D 

UPSET 

START' 

3D 

USET 

STOP 

USET 

STORAGEMODE 

UPSET 

STRUCTURE  LIMIT' 

UPSET 

SUBSCRIPTCHARACTER 

3D 

UPSET 

SUPERSCRIPTCHARACTER 

3D 

UPSET 

SYMBOL  INDEX' 

USET 

SYSTEM 

UPSET 

TABHORIZONTAL 

UPSET 

TABVERTICAL 

UPSET 

■TERMINATOR 

USET 

TEXT' 

File  number  of  graphics  output  file  (computer  system 
dependent) 

Graphical  output  destination  device  ('ALLDEVICES') 
Axis  label  plane  CXYPLANE  ) 

Scale  option  CNEWSCALE) 

Current  degree  of  polynominal  fit  foi  curve  fitting  (5  ) 

Current  axes  positioning  CEDGEAXES) 

Number  of  digits  of  precision  to  be  displayed  for  real 
numbers  (4  ) 

Type  of  projection  CPERSEPCTIVE) 

File  designator  for  non  graphic  input  (computer 
system  dependent) 

Data  structure  invocation  option  ('SINGLE'  or 
REPEAT) 

Structure  file  rewind  mode  ( REWIND  ) 

Axis  scale  option  ( AUTOSCALE’) 

Subscript/superscript  control  CNOSCRIPT  ) 

Control  ol  security  banners  ( UNSECURED  ) 

Light  pen  sensitivity  switch  ( DESENSITIZE  ) 

Side  of  axes  on  which  labels  will  appear  ( NEGATIVE  ) 

Hardware  character  size  (SMALL ) 

Software  character  ilal'c  slant  angle  ( 1 ( degrees) 

Coordinate  space  ( VIRTUAL  ) 

Angular  span  for  pie  charts  <360  degrees) 

Pie  chart  starting  angle  (0  ) 

rrror  stopping  control  CNOABORT  ) 

Segment/Frame  retention  mode  ( RET AINED1 

Maximum  number  of  structures  which  can  be  defined 
(100) 

Current  subscript  shift  character  ( ) 

Current  superscript  shift  character  ( ) 

Choice  of  marker  (0  ) 

Current  coordinate  system  ( SYSTEM  ) 

Location  of  current  horizontal  tab  stop  (10) 

Location  ol  current  vertical  lab  slop  (10) 

GCS  string  termination  chaiacter 
Textual  I/O  mode  ( TEXT  ) 
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UPSET 


ticinterval 


Length  of  UPEN  licintervals  (10) 


I 


UPSET 

'TICLENGTH' 

Length  ol  UPEN  ticinlervals  (10) 

UPSET 

•TICMINUS' 

Clockwise  he  mark  size  (0  OS) 

UPSET 

TICPLUS' 

Counter-clockwise  tick  mark  size  (0  05) 

UPSET 

TICX 

X axis  tic  interval  (0  ) 

UPSET 

TICY 

Y axis  tic  interval  (0  ) 

UPSET 

TICZ 

3D 

Z axis  tic  interval  (0 ) 

USET 

TIME' 

T ime  series  plotting  period  ( DATES') 

USET 

TYPE 

T ype  ol  coordinates  ( RECT ANGULAR) 

USET 

UNIFORM 

3D 

High  level  plotting  option  ( NONUNIFORM') 

USET 

UNITS 

Device  space  units  ( INCHES ) 

USET 

UPAXIS' 

3D 

Coordinate  system  viewport  vertical  axis 
l ZPOSITIVE  ) 

UPSET 

UPPERCASE 

Uppercase  shift  character  as  Hollirith  string  ( A ) 

USET 

USER' 

User  coordinate  system  switch  (7  ) 

UPSET 

VERTICAL 

3D 

Vertical  software  character  position  switch 

USET 

VIEWPORT 

Viewport  distance  base  switch  ('SITE  ) 

USET 

VISIBILITY 

Framed/segment  creation  visibility  mode  ( VISIBLE  ) 

UPSET 

WIDTH  OF  LINES 

3D 

Width  ol  lines  (0  ) 

USET 

WINDOW 

Window  type  CNOWINDOW'I 

UPSET 

WRITE  FILE 

Non  graphic  alphanumeric  output  file  (Computer 
system  dependent) 

UPSET 

XBASE' 

Base  ol  log  scaling  along  x component  (real  number 
or  siring  E ) (10  ) 

USET 

XLABEL' 

X axis  labelling  option  CXNUMERICLABEL  ) 

USET 

XLOGARITHMIC 

X axis  linearity  option 

UPSET 

XPERCENTAGE  OF  CHARACTER 
SPACE 

Portion  ol  horizontal  character  space  occupied  by 
character  (0  65) 

USET 

XREPETITION  MODE 

X component  repetition  mode  lor  plotting 
CNOXREPEAT) 

UPSET 

XROTATION 

Rotation  factor  around  X axis  lor  structure  invocation 
(0) 

UPSET 

XSCALING 

Scaling  (actor  along  X axis  lor  structure  invocation 
(1  ) 

UPSET 

^SPECIFICATION  UNIT 

Number  ol  XSPECIFICATION  unts  in  device  space 
(1000) 

USET 

XSIZE 

Horizontal  hardware  character  position  size  (device 
dependent) 

UPSET 

XTITLE' 

X axis  alphanumeric  label  t'X  ) 

UPSET 

YBASE 

3D 

Base  ol  log  scaling  along  Y-component  (real  number 

or  string  E ) (10  ) 


138 


USET 

YLABEL 

Y axis  labelling  option  ( YNUMERICL ABELS  ) 

USET 

YLOGARITHMIC 

Y axis  linearity  option 

UPSET 

YPERCENT AGE  OF  CHARACTER 
SPACE' 

Portion  of  vertical  character  space  occupied  by 
character  (0  65) 

USET 

YREPETITION' 

Y component  repetition  made  tor  plotting 
( NOYREPEAT  ) 

UPSET 

YROTATION' 

Rotation  lactor  around  Y axis  lor  structure  invocation 
(0) 

UPSET 

YSCALING 

Scaling  (actor  along  Y axis  for  structure  invocation 
(1  > 

UPSET 

YSIZE' 

Vertical  size  for  hardware  characters  (device 
dependent) 

UPSET 

YSPECIFICATIONUNITS' 

Number  of  Y specification  units  in  device  space 
(1000) 

UPSET 

YTITLE’ 

Y axis  alphanumeric  label 

UPSET 

ZBASE 

3D 

Base  of  log  scaling  along  Z axis  (10  ) 

USET 

ZCUP' 

Hither/yon  clipping  mode  CNOZCLIPPING') 

USET 

ZLABEL' 

3D 

Z axis  label  option  CZNUMERICLABELS  ) 

USET 

ZREPETITION  MODE' 

Z component  repetition  mode  lor  plotting 
(NOZREPEAT) 

UPSET 

ZROTATION 

Rotation  factor  around  Z axis  for  structure  invocation 
(0) 

UPSET 

ZSCALING 

Scaling  factor  along  Z axis  for  structure  invocation 
(1  > 

UPSET 

ZSPECIFICATIONUNITS 

Number  of  Z specification  units  in  device  space 
( 1 000 ) 

UPSET 

ZTITLE 

3D 

Z axis  title 

UPSET 

ZVALUE’ 

3D 

Numeric  default  Z-value  for  2D  coordinates  (0  ) 
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Subroutine  URAXIS 
FUNCTION: 

This  routine  draws  a scaled  and  labeled  set  of  axis  The  position  of  the  beam/pen  when 
URAXIS  is  called  will  be  the  intersection  point  of  the  two  axes  or  their  extensions  The 
axis  will  be  drawn  from  the  minimum  to  maximum  values  furnished  be  the  user. 

CALLING  SEQUENCE: 

CALL  URAXIS  (XMIN.XMAX.YMIN.YMAX) 


Where 

XMIN  is  the  minimum  value  to  be  displayed  for  the  X axis  in  current  user  units.  It 

also  indicates  the  minimum  RADIUS  component  component  if  polar 
coordinates  are  being  used. 

XMAX  is  the  maximum  value  to  be  displayed  for  the  X axis  in  current  user  units.  It 
also  indicates  the  maximum  RADIUS  component  if  polar  coordinates  are 
being  used. 

YMIN  is  the  minimum  value  to  be  displayed  for  the  Y axis  in  current  user  units.  It 

also  indicates  the  minimum  THETA  component  if  polar  coordinates  are 
being  used. 

YMA'"  is  the  maximum  value  to  be  displayed  for  the  Y axis  in  current  user  units.  It 
also  indicates  the  maximum  THETA  component  if  polar  coordinates  are 
being  used. 

OPTIONS  which  may  apply: 

Coordinate  System  Options:  RECT ANGULAR',  ‘POLAR’,  or  LOGARITHMIC’,  or 

LOGARITHMIC' 

Coordinate  Type  Options  ABSOLUTE'  or  RELATIVE' 

Axis  Existence  Options  'XYAXES',  XAXIS’,  ‘YAXIS’.  or  'NOAXES' 

Axis  Drawing  Options  'TICAXES',  GRIDAXES’,  or  PLAINAXES' 

X Axis  Type  Options  (Rectangluar):  LINXAXIS',  LOGXAXIS',  or 'LNXAXIS' 

Y Axis  Type  Options  (Rectangular):  'LINYAXIS'.  LOGYAXIS',  or  ‘LNYAXIS’ 

X Axis  Labeling  Options  XNUMERICLABEL',  'XALPHANUMERICLABEL', 

XBOTHLABEL',  NOXLABEL’ 

Y Axis  Labeling  Options  YNUMERICLABEL’, 'YALPHANUMERICLABEL', 

YBOTHLABEL', or  NOYLABEL' 

Numeric  Scaling  Format  Options:  BESTFORMAT',  IFORMAT',  or  GFORMAT’ 


PARAMETERS  which  may  be  set: 

TICX'  — The  interval  between  tic  marks  or  grid  lines  on  the  X axis  in  current 

user  units  (Rectangular.  Linear). 

The  interval  between  radial  tic  marks  or  grid  lines  in  current  user  units 
(Polar) 
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— The  interval  between  tic  marks  or  grid  lines  on  the  Y axis  in  current 
user  units  (Rectangular.  Linear) 

The  interval  between  axial  grid  lines  in  current  user  units  (Polar). 
‘XLABEL’  — The  X axis  alphahbetic  label 

'YLABEL’  — The  Y axis  alphabetic  label 

'PRECISION’  — The  number  of  digits  of  precision  for  the  numeric  labels 

COMMENTS: 

The  default  options  for  URAXIS  are  the  first  options  listed  in  each  option  type.  Unless 
specified  by  the  user,  the  tic  or  grid  intervals  will  be  determined  automatically  by 
URAXIS.  The  default  for  PRECISION  is  four  digirs  of  precision. 

This  routine  operates  entirely  in  the  current  user  coordinate  system  using  the  user's 
units.  The  vertical  position  of  the  X axis  will  be  determined  by  the  vertical  position  of  the 
beam/pen  when  URAXIS  is  called  Similarly,  the  horizontal  position  of  the  Y axis  will  be 
determined  by  the  horizontal  position  of  the  beam/pen.  Normally,  the  numeric  and 
alphabetic  labels  will  be  below  the  X axis  and  to  the  left  of  the  Y axis.  The  X axis  labels 
will  move  above  the  X axis  if  the  beam/pen  is  positioned  at  or  above  YMAX,  and  the  Y 
axis  labels  will  move  to  the  right  of  the  Y axis  if  the  beam/pen  is  positioned  at  or  to  the 
right  of  XMAX.  The  user  is  cautioned  not  to  position  the  beam/pen  on  the  boundary  of 
the  virtual  window,  but  to  leave  sufficient  room  for  the  labels  by  positioning  the  beam/ 
pen  well  inside  the  range  of  the  URAXIS  arguments,  or  by  making  the  virtual  window 
boundaries  large  enough  so  that  room  will  exist  outside  the  range  of  the  URAXIS 
arguments. 

If  POLAR  is  specified,  a check  will  be  made  on  the  arguments  to  see  if  a first  quadrant  or 
a full  four  quadrant  set  of  axes  is  needed  The  user  should  keep  this  in  mind  and  make 
sure  there  is  sufficient  room  for  a four  quadrant  set  of  axes  if  needed  If  the  user  is  in  an 
ABSOLUTE  coordinate  system,  the  axes  will  be  centered  at  (0  ,0.)  regardless  of  the 
beam/pen  position  If  the  user  is  in  a RELATIVE  coordinate  system,  the  axes  will  be 
centered  on  the  beam/pen  position  The  labels  will  be  to  the  extreme  left  and  bottom  of 
the  axes  in  both  the  one  quadrant  and  four  quadrant  case. 

Programming  Notes: 


i 


Subroutine  UREAD 


Interactive 


FUNCTION: 

This  routine  enables  the  user  to  read  character  data  entered  from  the  alphanumeric 

keyboard  of  the  terminal.  The  data  will  be  formatted  and  returned  to  the  user  according 

to  one  of  five  options  The  options  are:  'TEXT',  'REALNUMBER',  INTEGER' 
XYCOORDINATES’,  or  XYZCOORDINATES'  (3D  only) 

CALLING  SEQUENCE: 

CALL  UREAD  (X,Y, DAT  A, COUNT, FLAG) 

Where 

X is  the  X or  RADIUS  coordinate  of  the  lower  left  corner  of  the  point  at  which 

the  input  will  begin,  if  possible. 

Y is  the  Y or  THETA  coordinate  of  lower  left  corner  of  the  point  at  which  the 

input  will  begin,  if  possible. 

DATA  is  a single  variable  or  array  to  contain  either  real  numbers  or  a GCS  text 
string.  The  size  of  DATA  is  variable. 

COUNT  is  a single  variable.  If  the  user  has  specified  ‘TEXT’  input,  then  COUNT  in 
the  maximum  number  of  characters  returned  in  DATA.  The  size  of  DATA 
must  be  large  enough  to  contain  COUNT  characters.  The  characters  are 
returned  in  Hollerith  format,  left  justified  and  blank  filled.  If  the  terminal 
operator  inputs  fewer  characters  than  requested  in  COUNT,  then  DATA 
will  be  blank  filled  to  the  required  size.  If  the  user  has  specified  'REAL'  or 
'INTEGER',  then  the  value  of  COUNT  is  the  number  of  variables  to  be 
input.  For  'XYCOORDINATES',  the  value  of  COUNT  is  the  number  of 
coordinate  pairs  to  be  read.  For  'XYZCOORDINATES',  the  value  of  COUNT 
is  the  number  of  coordinate  triplets  to  be  read. 

FLAG  is  a single  variable.  The  value  of  FLAG  will  be  zero  if  the  terminal  operator 

has  made  an  error  in  entering  the  numeric  data.  In  this  case,  the  value  of 
DATA  is  undefined.  If  the  required  input  was  correct,  then  the  value  of 
FLAG  is  the  number  of  elements  in  DATA,  or  the  number  of  characters  that 
the  terminal  operator  entered. 

OPTIONS  which  may  apply: 

Coordinate  System  Options:  See  UPEN  and  UCOSYS 

ALPHANUMERIC  Options:  TEXT',  'INTEGER',  REALNUMBER',  XYCOORDINATE' 

Device  Switching  Options  MESSAGEDEVICE',  PLOTDEVICE' 

A TEXT  — Under  this  detault  option,  UREAD  will  accept  and  store  COUNT 
characters  into  DATA  hence,  the  user  must  insure  that  DATA  has  been 
suitably  dimensioned  to  hold  the  number  of  characters  which  have  been 
requested  Should  fewer  than  COUNT  characters  be  entered  as  input,  UREAD 
will  store  the  actual  number  of  characters  entered  into  FLAG,  and  blank-fill  the 
remaining  (COUNT  - FLAG)  characters  of  DATA  It  should  be  noted  tha* 
UREAD  does  not  append  the  termination  character  to  the  end  of  the  input. 
Therefore,  the  user  is  responsible  for  inserting  this  character  via  UAPEND  if 
the  string  is  to  be  passed  as  a parameter  to  UPRINT  or  UWRITE 
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B REALNUMBER  — This  option  directs  UREAD  to  edit  the  alphanumeric  input  as 
a REAL  number,  and  to  store  the  resulting  floating-point  number  into  the 
single-valued  REAL  parameter  DATA  Should  UREAD  encounter  any  illegal 
characters  during  the  edit,  FLAG  will  be  returned  with  a negative  value,  and 
DATA  will  be  undefined 

C.  INTEGER  - As  in  the  case  of  REALNUMBER,  DATA  is  assumed  to  be  single- 
valued and  of  type  REAL  UREAD  will  edit  the  alphanumeric  input  as  an 
INTEGER,  perform  an  INTEGER  to  REAL  conversion,  and  store  the  result  into 
DATA,  The  user  may  check  if  the  operation  was  successfully  performed  by 
examining  FLAG  upon  return  from  UREAD 

D.  XYCOORDINATES  — This  option  directs  UREAD  to  accept  two  REAL 
numbers  (separated  by  a comma)  as  input  and  to  store  them  into  the  two 
element  REAL  array,  DATA.  FLAG  is  set  to  reflect  the  status  of  the  input  and 
editing  operation. 

E.  XYZCOORDINATES  - This  option  directs  UREAD  to  accept  three  REAL 
numbers  (separated  by  commas)  as  input,  and  store  them  into  the  three 
element  REAL  array  DATA.  FLAG  is  set  to  reflect  the  status  of  the  input  and 
editing  system. 

COMMENTS: 

The  input  begins  at  the  current  alphanumeric  cursor  position.  For  those  devices  which 
have  alphanumeric  capability  on  the  PLOT  device,  then  the  alphanumeric  cursor 
position  is  the  current  beam  position  Otherwise,  the  input  will  be  from  the  MESSAGE 
device  The  maximum  number  of  characters  retrieved  by  UREAD  is  unlimited,  however, 
the  number  of  characters  which  may  be  input  by  the  terminal  operator  may  be  limited. 
The  user  should  consult  the  proper  system  manual  to  determine  what  limits  exist,  if  any 
for  a particular  terminal  and  system 
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Subroutine  URECT 
FUNCTION: 

This  routine  draws  a rectangle  which  spans  from  the  current  beam  position  to  the 
diagonally  opposite  corner. 

CALLING  SEQUENCE: 


CALL  URECT  (X,Y) 

Where 


is  the  X-  or  RADIUS  component  of  the  specified  endpoint  in  current  user 
units. 


Y is  the  Y*  or  THETA  component  of  the  specified  endpoint  in  current  user 

units. 

OPTIONS  which  may  apply: 

All  Line  Options 

All  Pen  Coordinate  Options 

UPSET  ( ORIENT',  ANGLE) 

COMMENTS: 

The  orientation  factor  specifies  the  amount  of  rotation  to  be  applied  to  the  rectangle. 
Note  that  the  orientation  factor  applies  to  the  entire  rectangle,  and  not  the  endpoint 
which  determines  the  rectangle 

Programming  Notes: 
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SUBROUTINE  SPRHAS 
CALL  USET  C 'RELATIVE' 3 
CALL  UNOVE  C 26.0.86.83 
CALL  UPEN  C 68. 8. 0.03 
CALL  UNOVE  C— 26 .8.8.83 

call  upen  <a.a.-ta.a> 

CALL  UARC  C8. 8.-6. a. 226.83 
DO  I I - I.  3 

CALL  UARC  <-3.636.-3.636.270.03 
I CONTINUE 

CALL  UARC  <— 3 . 636. —3.636. 226 . 03 
CALL  UPEN  <8.0.-18.03 
CALL  UNOVE  <-12.6.-12.63 
CALL  URECT  <26.8.12.63 

return 


CALL  (J6TART 

CALL  UPSET  C * TERMINATOR * , ' 

CALL  USET  C'EXTRALARCEO 

CALL  UOUTLN 

CALL  UMOVE  C2S..2S.) 

CALL  USET  C' ARROW':) 

CALL  UPEN  C40.,4«.) 

CALL  UPSET  C ' ORIENT ATION ',46.3 
CALL  USET  C‘LNULL'3 
CALL  URECT  <79. ,00.  3 
CALL  USE~  C' ARROW') 

call  upen  cea.,ea.5 

CALL  UWRJTE  C4S..40.. '46  DEGREES, '> 

CALL  UEND 

STOP 

END 
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Subroutine  URESET 


FUNCTION: 

To  reinitialize  the  Graphics  Status  Area  (GSA)  to  the  default  condition. 

CALLING  SEQUENCE: 


CALL  URESET 


OPTIONS  which  may  apply: 

No  options  apply 

Programming  Notes: 


i 

i 
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Subroutine  UROTAT 
FUNCTION: 


A user  coordinate  system  is  composed  at  the  current  beam  position  and  rotated 
according  to  the  rotation  factor  specified  in  the  argument. 

CALLING  SEQUENCE: 

CALL  UROTAT  (ANGLE) 

Where 

ANGLE  is  the  rotation  factor  applied  to  the  new  coordinate  system  which  is 
composed  at  the  current  beam  position.  Angle  is  in  current  angular  units. 

OPTIONS  which  may  apply: 

WORKINGAXIS 

REFERENCEAXIS 

COMMENTS: 

The  invocation  of  this  subroutine  causes  the  creation  of  a new  origin  (0  ,0.)  at  the  current 
beam  position.  The  unit  scale  factors  are  assumed  to  be  equal  to  one.  For  a detailed 
discussion  of  the  GCS  coordinate  system  facility,  refer  to  UCOSYS 

Programming  Notes: 
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Subroutine  USAREA 
FUNCTION: 

This  subroutine  avoids  distortion  by  changing  the  device  boundaries  to  maintain  a 1 to  1 
ratio  with  the  current  window  boundaries 

CALLING  SEQUENCE: 

CALL  USAREA 

OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 

The  resulting  device  boundaries  can  be  found  by  CALL  USTUD(ARRAY) 

Programming  Notes: 

f 
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Subroutine  USAVE 


FUNCTION: 

This  routine  saves  the  entire  contents  of  the  Graphics  Status  Area  (GSA)  in  an  array 
furnished  by  the  user  This  array  will  be  suitable  for  later  use  as  input  to  UNSAVE  to 
restore  the  status  area  to  the  current  setting 

CALLING  SEQUENCE: 

CALL  USAVE  (SARRAY) 

Where 

SARRAY  is  an  array  large  enough  to  contain  the  variables  to  be  saved  from  the  status 
area. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  size  of  the  array  necessary  to  save  the  GSA  is  dependent  upon  the  particular  version 
of  GCS  being  used  For  the  two  dimensional  version,  SARRAY  should  be  300  words 
(decimal)  long;  tor  the  three  dimensional  version  SARRAY  should  be  2100  (decimal) 
words  long. 

Programming  Notes: 


Subroutine  USAXIS 


3D 


FUNCTION: 

This  routine  is  the  basic  axis  creation  routine  It  draws  a single  axis  from  the  designated 
point  for  the  distance  specified  parallel  to  the  axis  specified 

CALLING  SEQUENCE: 

CALL  USAXIS(AXIS,XSTART,YSTART,ZSTART,DIST) 

Where 

AXIS  specifies  the  coordinate  system  axis  which  is  parallel  to  the  desired  axis.  Its 

values  are  as  follows: 

'XAXIS':  axis  will  be  parallel  to  coordinate  system  X axis 
'YAXIi':  axis  will  be  parallel  to  coordinate  system  Y axis 
'ZAXIS':  axis  will  be  parallel  to  coordinate  system  Z axis 


XSTART, 

YSTART, 

ZSTART 

DIST 


are  the  coordinates  of  the  starting  point  of  the  axis  to  be  drawn 


specifies  the  length  of  the  axis.  A positive  value  will  cause  the  axis  to 
extend  in  the  positive  direction.  A negative  value  will  cause  the  axis  to 
extend  in  the  negative  direction. 


OPTIONS  which  may  apply: 

X Axis  Labeling  Options: 

Y Axis  Labeling  Options: 

Z Axis  Labeling  Options: 


'NOXLABELS',  'XNUMERICLABELS', 
'XALPHABETfCALABEL',  'XBO THLABLES' 

NOYLABELS',  'YNUMERICL  ABELS', 

‘Y  ALPHABETICAL  ABELS',  'YBOTHLABELS' 

NOZLABELS’,  ‘ZNUMERICLABELS’, 
ZALPHABETICLABELS',  'ZBOTHLABELS' 


Alphabetic  Label  Specification:  UPSETCXLABEL’,  GCS  character  string) 

UPSETCYLABEL',  GCS  character  string) 
UPSETCZLABEL',  GCS  character  string) 
Numeric  Label  Format  Options  'BESTFORMAT,'  IFORMAT’,  'GFORMAT' 


Axis  Description  Options: 
Tic  Interval  Specifications 

Tic  Size  Specifications: 
Log  Scaling  Options 
Log  Base  Specifications 


‘PLAINAXES’,  'TICAXES' 

UPSETCTICX',  value) 

UPSETCTICY', value) 

UPSETCTICZ', value) 

UPSETCTICPLUSSIZE',  value) 
UPSETCTICMINUSSIZE',  value) 

'NOLOG',  XLOG',  YLOG’,  ZLOG',  'XYLOG',  XZLOG', 
‘YZLOG’.  'XYZLOG',  ‘LOGARITHMS' 

UPSETCBASE',  value) 

UPSETCXBASE',  value) 


UPSETfYBASE',  value) 
UPSETCZBASE'  value) 


Axis  Label  Orientation  Options:  PARALLELABELS',  PERPENDICULARABELS’ 

Axis  Label  Position  Options  POSITIVESIDE',  NEGATIVESIDE' 

Axis  Label  Plane  Options  'XYPLANE',  'XZPLANE',  ‘YZPLANE’ 

Label  Rotation  Option:  UPSETCLABELROTATION',  value) 

COMMENTS: 

The  axis  label  options  provide  for  producing  numbers  which  correspond  to  the  tic  marks 
(numeric  labels)  and  for  producing  a description  of  the  axis  (alphabeticlabels)  These 
labels  are  individually  selectable  for  each  axis 

The  location  of  the  labels  can  be  specified  using  several  different  options  The  most 
signficant  of  these  is  that  which  specifies  the  plane  in  which  the  characters  will  be 
drawn.  The  three  options  are  XYPLANE',  'XZPLANE',  and  'YZPLANE'.  If  the  plane 
selected  is  perpendicular  to  the  axis  being  drawn,  the  angle  of  roatation  around  the  axis 
must  also  be  specified  by  the  UPSET  ('LABELORATION',  value)  call  (default  is  0 
degrees). 

The  user  can  also  select  which  side  of  the  axes  the  labels  will  appear.  'POSITIVESIDE' 
specifies  that  the  labels  will  be  above  or  to  the  right  of  the  axis.  'NEGATIVESIDE' 
specifies  that  the  labels  are  to  the  left  or  below  the  axis.  Default  is  'NEGATIVESIDE'. 

The  orientation  of  the  labels  can  be  specified  by  either  the  PARRALLEL'  or 
PERPENDICULAR'  USET  options.  PARALLEL  specifies  that  the  major  axis  of  f •> 
numeric  labels  (their  lengths)  will  be  along  the  axis.  'PERPENDICULAR'  specifies  th„i 
the  major  axis  of  the  numeric  labels  will  be  perpendicular  to  the  axis  Alpha  labels 
always  have  their  major  axis  parallel  to  the  axis  being  drawn  It  should  be  noted  that  if 
hardware  characters  are  to  be  used,  vertical  spacing  may  be  necessary  to  maintain  the 
correct  label  orientation  In  some  instances,  it  may  even  be  necessary  to  produce  labels 
at  some  oblique  angles.  Software  character  labels  will,  however,  always  be  produced  in 
the  proper  orientation 

U3AXIS  will  always  draw  the  requested  axis  in  the  current  coordinate  system  and  space 
No  attempt  is  made  to  insure  that  the  axis  is  visible  Also  no  scaling  is  performed 
although  a tic  interval  may  be  calculated  if  not  specified 

Programming  Notea: 
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15  5 7 

LOGGED  AND  NONLQGGED  CIRCLES 


rAi  i (JSTART 

CALL  UPSET  C ' TERMINATORS  5 
CALL  USET  C 'SOFTWARE  CHARACTERS'  > 

CALL  UPSET  < 'VERTICAL', ,4> 

CALL  UPSET  < 'HORIZONTAL'. .4) 

CALL  UMINDO  C-3.,10.,-3., t0.> 

CALL  UPSET  C ' TICX ',1.5 
CALL  UPSET  C'TICY',l.i 

CALL  UPSET  C ' XLA0EL ' , ' LOOSED  AND  NONLO00ED  CIRCLES; ') 

CALL  USET  C'XBOTHLABELS'5 

CALL  USAXIS  C'XAXIS'.0.,0..0.,S.> 

CALL  USAXIS  <'YAXIS'.0.,0..0.,«.> 

CALL  UCRCLE  <4. , 4.  ,3.S:> 

CALL  U3CSYS  C0. .2. .0. , I . ,2. , I . .0. ,0. . 0. 3 
CALL  UPSET  < 'HORIZONTAL', . I Si 
CALL  UPSET  < 'VERTICAL', .3) 

CALL  UPSET  C 'BASE', 2.5 

CALL  USET  C'YLOQO 

CALL  USET  C'LOOUSERO 

CALL  USAXIS  C'YAXIS',-1  .6,  .5,0., 7. S> 

CALL  UCRCLE  C4.,4..3.S> 

CALL  UEND 
STOP 
END 
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Subroutine  USCALE 


The  invocation  of  this  subroutine  causes  the  creation  of  a new  origin  (0.,0.)  at  the  current 
beam  position  The  rotation  factor  is  assumed  to  be  zero  For  a detailed  discussion  of 
the  GCS  coordinate  system  facility,  refer  to  Subroutine  UCOSVS 

Programming  Notes: 


I 


CALL  UGTART 
CALL  UOUTLN 
CALL  UNOVE  CZE.,2£.  3 
CALL  U6CALE  Cl I .7 
r ai  i FIGURE 

CALL  USET  C'SYSTENAXIS'7 
CALL  UMOVE  C2E .,75.5 
CALL  USCALE  C-l .. I .7 
CALL  FIGURE 

CALL  USET  C'SYSTENAXIS'7 
CALL  UNOVE  C76..2S.7 
CALL  USCALE  C.G.-I .7 
fAi  i FIGURE 

CALL  USET  C'SYSTENAXIS'7 

CALL  UNOVE  C7C..7C.7 

CALL  USCALE  C-Z..-I .7 

CALL  FIGURE 

CALL  UEND 

STOP 

END 

SUBROUTINE  FIGURE 
CALL  UPEN  CIO. .0.7 
CALL  UPEN  CIS. .20. 7 
CALL  UPEN  CO. .0.7 
RETURN 
END 
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Subroutine  USCATR 
FUNCTION: 

This  routine  draws  a scatter  plot  (rom  the  user  input  data,  drawing  axes  as  specified 

CALLING  SEQUENCE: 

CALL  USCATR(X,Y,PTS) 


Where 

X 

Y 

PTS 


is  a real  array  of  X or  RADIUS  coordinates  for  the  points  in  the  diagram 
is  a real  array  of  Y or  THETA  coordinates  for  the  points  in  the  diagram 
is  a real  constant  or  variable  specifying  the  number  of  points  in  the  diagram 


OPTIONS  which  may  apply: 

Axis  Existence  'XYAXES',  •XAXIS'.  ’YXASIX',  'NOAXES’ 

Axis  Format:  TICAXES’,  PLAINAXES’,  GRIDAXES' 

X Axis  Labeling:  'XNUMERIC',  'XALPHALABEL',  ’XBOTH'.  NOXLABEL' 

Y Axis  Labeling  ’YNUMERIC',  ’YALPHALABEL’,  'YBOTH'.  NOYLABEL' 

Numeric  Label  Format  ’BESTFORMAT',  'IFORMAT',  GFORMAT’ 

Scaling  Type:  ’AUTOSCALE',  'FULLSCALE’,  ’OWNSCALE' 

X Axis  Type:  ’LINXAXIS',  ’LOGXAXIS'.  'LNXAXIS' 

Y Axis  Type:  ‘LINYAXIS',  ’LOGYAXIS',  'LNYAXIS' 

Coordinate  Type:  ’RECTANGULAR',  POLAR’ 

Curve  Fitting'  ’NOFITTING',  ’FITLINEAR' 

COMMENTS: 

This  routine  is  very  similar  to  UPLOT  with  the  use  of  the  line  option  'NPOINT',  i.e.,  a null 
line  with  a point  as  terminator. 


Programming  Notes: 


Subroutine  USET 
FUNCTION: 

This  routine  allows  the  user  to  set  options  in  the  Graphics  Status  Area  (GSA)  Options 
will  remain  set  until  changed  by  a subsequent  USET  or  UPSET  call  or  until  the  GSA  is 
restored  during  an  UNSAVE  or  UNSVPN  call 

CALLING  SEQUENCE: 

CALL  USET  (OPTION) 

Where 

OPTION  is  the  mnemonic  option  name  which  uniquely  identifies  the  option  to  be  set, 
or  is  the  first  four  characters  of  such  an  option  name. 

OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 

In  the  following  table,  those  ODtions  flagged  by  the  notation  '3D'  are  contained  within 
only  the  three  dimensional  version  of  GCS 

The  notation  T indicates  that  these  options  pertain  to  a system  having  an  interactive 
capability  On  passive  graphics  systems,  the  options  have  no  effect 


1 
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USET  OPTIONS  BY  ALPHABETICAL  ORDER: 
(Default  Options  are  in  Bold  Type) 


Option  Name 

AARROW' 

ABACKARROW' 

ABEND' 

'ABORT' 

ABSb' 

ABSOLUTE' 

ABUTTING' 

ACENTER' 

ACHARACTER' 

ACOORDINATE' 

ADDITIVE' 
ADOUBLEARROW' 
'ALLDISPLAYS' 
ALPHANUMERIC' 
ALTER  NATE  DISPLAY' 

ANNUAL' 

'ANULL' 

’ APOINT' 

'ARROWLINE' 

ASYMBOL' 

AUTOSCALE' 

BACKARROWLINE' 

BALL' 

BLACK' 

BBLUE' 

BCYAN' 

BESTFORMAT' 

BIHOURLY' 

BLACK' 

BLUE’ 

BMAGENTA' 

BRED' 

BRIGHT' 

BUILD' 

BWHITE’ 

BYELLOW' 

CENTIMETERS' 

CHARACTER' 

'C  JUSTIFICATION' 

COMPRESSED'* 

CONTINUOUS 

COORDINATES' 

CURSOR' 

CWINDOWING' 

CYAN' 

CYLINDRICAL' 


To  Request 

Alphanumeric  lines  with  arrow  terminators 
Alphanumeric  lines  with  back  arrow  terminators 

3D,*  To  halt  execution  when  error  count  exceeds 
certain  limit 

3D  To  halt  executicr  when  error  count  exceeds 
certain  limit 

Plotting  in  an  absolute  coordinate  system 
Plotting  in  an  absolute  coordinate  system 
Abutting  of  display  surface  pages 
To  center  character  output  about  given  location 
Alphanumeric  lines  with  character  terminators 
Alphanumeric  lines  with  ending  coordinates 
indicated 

* Additive  color  blending  mode 

Alphanumeric  lines  with  arrowhead  terminators 
Routing  of  graphical  output  to  all  devices 
Alphanumeric  lines  with  no  terminators 
Routing  of  graphical  output  to  first  alternate 
device 

Time  series  axis  scale  in  yearly  intervals 
Alphanumeric  lines  with  no  terminators 
Alphanumeric  lines  with  point  terminators 
Solid  lines  with  arrow  terminators 
Alphanumeric  lines  with  character  terminators 
Automatic  scaling  for  higher  level  graphing 
Solid  lines  with  back  arrow  terminators 
Track  ball  graphical  input 
Background  color  to  be  black 
Background  color  to  be  blue 
Background  color  to  be  cyan 
Numeric  label  output  in  best  possible  format 
Time  series  axis  scale  in  two  hour  intervals 
Switch  to  pen  color  black 
Switch  to  pen  color  blue 
Background  color  to  be  magenta 
Background  color  to  be  red 
Highest  possible  intensity  for  output 

3D  Structure  building 

Background  color  to  be  white 
Background  color  to  be  yellow 
Device  space  coordinates  are  in  centimeters 
Null  or  invisible  lines  with  character  terminators 
Alphanumeric  center  justification 

3D  Data  structure  editing  option 

Curved  lines  be  interpreted  as  one  pen  operation 
UPRINT/UWRITE  output  in  (X.Y)  coordinate  format 
Graphic  cursor  as  graphic  input  device 

3D  Circular  windowing 

Switch  to  pen  color  cyan 
Coordinates  are  to  be  of  the  form  (R.THETA.Z), 
where  R is  the  number  of  units  of  radius  in  the  X.Y 
plane,  THETA  is  the  number  of  angular  units 
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DAILY' 

DARROW' 

DASH' 

DATE' 

DBACKARROW' 
DCHARACTER' 
DCOORDINATES' 
DDOUBLE ARROW 
DEFERRED'* 

DEGREES 

DESENSITIZE' 

DETECTABLE' 

DEVICE' 

DIGITIZER' 

DIMb' 

DIMENSIONLINE' 

DISPLAY' 

DNULL' 

DOUBLEARROW' 

DPOINT' 

DSYMBOL' 

DUMP' 

ECHO'* 

EDGEAXIS’ 

ERROROUTPUT' 

EXECUTE 

EXPANDED'* 

EXTENDEDMENU'* 

EXTRALARGE' 

FAST' 

FITFRENCH' 

FITLINEAR' 

FITPOLYNOMIAL' 

FITSPLINE'* 

FNUMBERMODE' 

FONTUNITS' 

FULLSCALE' 

FUNCTIONKEYS' 

GAPPED' 

GFORMAT' 

GOTHIC 

GRADS' 

GREEN' 

GRIDAXIS' 

GROU' 

HARDWAREFONT 

HIGHLIGHTED' 

HITHER/YONbCLIPPING' 

HORIZONTAL' 

HOURLY' 

'FORMAT' 

IGNORE' 

INCHES 


around  the  Y axis,  and  Z Is  the  number  of  units 
along  the  Z axis 

Time  series  axis  scale  in  daily  intervals 
Dashed  lines  with  arrow  terminators 
Dashed  lines  with  null  terminations 
Time  series  axis  scale  in  date  series  interval 
Dashed  lines  with  arrow  terminators 
Dashed  lines  with  character  terminators 
Dashed  lines  with  endpoint  coordinates  indicated 
Dashed  lines  with  double  arrow  terminators 
Deferred  error  output  until  uend  is  called 
Angular  iniormation  be  interpreted  in  degrees 

I Disabling  of  pick  sensitivity 
Enabling  of  pick  sensitivity 
Plotting  in  device  space 
Digitizer  is  graphics  input  device 
Lowest  possible  intensity  for  output 
Solid  lines  with  arrow  terminators 
Plotting  in  device  space 
Dashed  lines  with  no  terminators 
Solid  lines  with  double  arrow  terminators 
Dashed  lines  with  point  terminators 
Dashed  lines  witfc  character  terminators 
To  select  dump  option 

I Echo  alphanumer  c input  option 

X and  Y axis  labels  at  edge  of  graph 
Immediate  error  output 

30  Execution  of  data  structure  commands  as  they  are 
built 

3D  Data  structure  editing  option 

I.3D  Extended  menuing  option 
Extra  large  character  size 
Fast  blink  rate 

Fit  french  curve  to  plotted  points 

Fit  linear  function  to  plotted  lines 

Fit  least  squares  polynomial  to  plotted  points 

Fit  cubic  spline  curve  to  plotted  points 

Frame  identifiers  provided  as  numbers 

To  indicate  device  spage  plotting  in  font  units 

Full  scaling  for  higher  level  graphing 

Function  keys  is  graphics  input  device 

Alternate  light  and  dark  line  output 

Numeric  label  output  in  FORTRAN  real  (E  or  F) 

format 

Gothic  character  font 

3D  Angular  units  to  be  measured  in  grads 
Switch  to  pen  color  green 
Grid  axes  for  higher  level  graphing 

Output  of  hardware  generated  characters 
Highlighted  segments 
Z axis  clipping 

3D  Alphanumeric  output  to  be  printed  horizontally 
Time  series  axis  scale  in  twenty-four  hourly 
intervals 

Numeric  label  output  in  integer  format 

3D  Ignore  duplicate  studies  on  merge  file 
Device  space  coordinates  in  inches 
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'INCREMENTAL' 

INTEGER' 

'INVISIBLE' 

'ITALICS' 

'JOYSTICK' 

'KEYBOARD' 

'LARGE' 

LARROW' 

'LBACKARROW' 

’LCHARACTER' 

'LCOORDINATES' 

'LDOUBLEARROW' 

LEFT' 

LETTER 

LIGHTPEN' 

LINE' 

'LINXAXIS' 

LINYAXIS' 

LJUSTIFICATION’ 

LNULL 

'LNXAXIS' 

'LNYAXIS' 

'LOGARITHMIC' 

'LOGOBJECT' 


LOGORIGINALUNITS' 

'LOGSYSTEM' 


'LOGUSER' 


'LOGXAXIS' 

LOGYAXIS' 

LOWERCASE' 

'LPOINT' 

LSYMBOL' 

MAGENTA' 

MEDIUM' 

MESSAGE  DEVICE' 
MILS' 

MINUTELY' 

MONTHLY' 

MOUSE' 

MOVE' 

MULTIPLE' 

NARROW' 

NBACKARROW' 

NCHARACTER' 

NCOORDINATES' 

NDOU  BLEAR  ROW' 


Plotting  in  an  incremental  coordinate  system 
UPRINT/UWRITE  output  in  integer  format 
3D  Invisible  construction  of  frames  and  segments 
Italic  character  format 
I Joystick  as  graphic  input  device 

I Keyboard  as  (pseudo)  graphic  input  device 
Large  character  size 
Solid  lines  with  arrow  terminators 
Solid  lines  with  back  arrow  terminators 
Solid  lines  with  character  terminators 
Solid  lines  with  endpoint  coordinates  indicated 
Solid  lines  with  double  arrow  terminators 
3D  Left  handed  coordinate  system 

UPRINT/UWRITE  output  in  text  format 
I Light  pen  as  graphic  input  device 
Solid  lines  with  null  terminators 
Linear  X axis  drawing 
Linear  Y axis  drawing 
Alphanumeric  left  justification 
Solid  lines  with  null  terminators 
Natural  log  X axis  drawing 
Natural  log  Y axis  drawing 
Applies  logarithmic  transforms  to  all  components 
3D  Logarithmic  transforms  are  to  be  applied  before 
any  other  transformations  (In  this  mode,  log 
transforms  may  be  applied  io  angle  or  radius 
components  of  CYLINDRICAL'.  POLAR',  or 
SPHERICAL  coordinates) 

Application  of  log  scaling  before  conversion  to 
rectangular 

3D  Logarithmic  to  be  applied  after  conversion  to 
SYSTEM'  coordinates  (in  this  mode,  the 
logarithmic,  coordinate  system  axes.) 

3D  Logarithmic  transforms  are  to  be  applied  after 
conversion  to  ABSOLUTE  . RECTANGULAR', 
'USER'  coordinates  but  before  conversion  to 
SYSTEM'  coordinates  (In  this  mode,  the 
logarithmic  scaling  will  be  applied  along  the 
current  USER'  coordinate  system  axes.) 

Base  ten  log  X axis  drawing 
Base  ten  log  Y axis  drawing 
Lower  case  to  be  TEXT'  case 
Solid  lines  with  point  terminators 
Solid  lines  with  character  terminators 
Switch  to  pen  color  magenta 
Medium  character  size 

Alphanumeric  I/O  routed  to  a message  device 
3D  Angular  units  to  be  measured  in  mils 

Time  series  axis  scale  in  minute  intervals 
Time  series  axis  scale  in  monthly  intervals 
I Analog  mouse  as  graphic  input  device 
Invisible  lines  with  null  terminators 
3D  Multiple  data  structure  invocation 

Invisible  lines  with  arrow  terminators 
Invisible  lines  with  back  arrow  terminators 
Invisible  lines  with  character  terminators 
Invisible  lines  with  double  arrow  terminators 
Invisible  lines  with  double  arrow  terminators 
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NEGATIVESIDE 

3D 

Labels  will  be  to  the  left  or  below  the  axes 

NEWSCALE 

New  scale  for  higher  level  graphing 

'NNULL' 

Invisible  lines  with  null  terminators 

NObLINE' 

Invisible  lines  with  null  terminators 

NOABORT 

3D 

Do  not  terminate  if  error  count  exceeds  specified 
limit 

NOAXES' 

No  axes  be  drawn  for  higher  level  graphing 

NOBLINK 

No  blinking  tooccur 

NOBUILD 

3D 

No  structure  building 

NOCENTER 

Te  i output  starts  at  given  point 

NOCLIP' 

3D 

No  device  space  clipping  performed 

NODUMP' 

3D 

No  dump  performed 

NOECHO' 

l,3D 

No  echoing  of  alphanumeric  input 

NOEXECUTE'* 

3D 

No  execution  of  data  structure  commands  as  they 
are  built 

NOFIT 

No  curve  fitting  for  higher  level  graphics 

NOHIGHLIGHTING 

No  segment  highlighting 

NOLINE' 

Invisible  lines  with  null  terminators 

NOLOGARITHMS 

3D 

To  remove  logorithmic  transform  application 

'NONUNIFORM' 

3D 

High  level  plotting  option 

NOMARK' 

Invisible  marks  with  null  terminators 

NONABUTTING' 

No  abutting  of  display  surface  pages 

NONRETAINEDSEGMENTS' 

Create  segments  in  non-retained  form 

NONUNIFORM 

Nonuniform  scaling  of  higher  level  grading 

'NOORIGIN 

3D 

No  origin  to  be  forced  for  AUTOSCALE'  or 
FULLSCALE  scaling  options 

NOREPEAT' 

3D 

No  coordinate  repeating  for  high  level  plotting 

NOREWIND' 

No  rewind  of  structure  save  files 

NORMALINTENSITY 

Norman  intensity  for  output 

NOSCRIPT 

3D 

To  disable  any  superscripting  or  subscripting  of 
text  output 

NOSIGNIFICANTZEROES' 

Suppression  of  display  of  significant  zeros 

NOSUPERSCRIPT 

3D 

Same  as 'NOSCRIPTING' 

NOTRAIL' 

3D 

Record  of  which  GCS  routines  are  invoked  is  not 
listed 

NOWINDOWING' 

3D 

Disable  GCS  windowing  routine 

NOXLABEL 

No  labels  are  to  be  drawn  for  graphing 

NOXREPEAT 

3D 

To  indicate  that  a component  is  provided  for  every 
X value  in  every  curve  in  higher  level  graphing 

NOYLABEL' 

No  Y labeling  for  graphing 

NOYREPEAT 

3D 

To  indicate  that  a component  is  provided  for  every 
Y value  in  every  curve  in  higher  level  graphing 

NOZCLIPPING 

No  hither/yon  clipping 

NOZLABELS' 

3D 

To  indicate  that  no  Z labels  are  to  be  drawn  for 
higher  level  graphing 

NOZREPEAT 

3D 

To  indicate  that  a component  is  provided  for  every 
Z value  in  every  curve  in  higher  level  graphing 

NObLINE' 

Invisible  line  with  null  terminator 

'NO-jMARK' 

Line  type 

NPOINT' 

Invisible  lines  with  point  terminators 

NSYMBOL ' 

Invisible  lines  with  character  terminators 

OLDSCALE' 

Old  scale  to  be  used  for  higher  level  graphing 

ORIGIN' 

3D 

An  origin  to  be  forced  for  AUTOSCALE'  and 
'FULLSCALE'  scaling  options 

ORMODE 

l,3D 

Asynchronous  event  processing  option 

ORTHOGRAPHIC' 

3D 

To  specify  orthographic  projection  in  which  the 
projection  is  parallel  from  all  points 

'OWNSCALE 

Own  scale  option  for  higher  level  graphing 
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PARALLELLABELS' 

PENAXIS' 

PENDOWN' 

PENORIGIN 

PENUP' 

PERIODIC' 

PERCENTUNITS 

PERPENDICULARL  ABELS' 

PERSPECTIVE 


'PIRADIANS' 

PLAINAXIS' 

PLOTDEVICE' 

POINT' 

POLAR' 

POSITIVESIDE’ 

PRIMARYDEVICE 

QUARTERLY' 

RADIANS' 

RASTERUNITS' 

'REAL' 

RECTANGULAR' 

REDb' 

REFERENCE' 

REFRESHEDSEGMENT' 

RELb' 

RELATIVE' 

REPLACE' 

RETAINEDSEGMENTS' 

REWIND' 

RIGHTHAND 

'R  JUSTIFICATION' 

RWINDOWING' 

SECONDLY' 

SECRET' 

SEGMENTED' 

SEMIANNUAL' 
SENSITIZE' 
'SIGNIFICATZEROES' 
SIMULATED  HARDWARE 
CHARACTERS' 

SINGLE' 

SITEPOINT 

SLOWBLINK’ 

SMALL' 

SOFTWAREFONT' 

SONICPEN' 

SPECIFIC’ 


3D  To  specify  thatthemainaxisof  the  numeric  labels 
will  be  parallel  to  the  axis 

Axis  intersection  at  current  position  for  graphing 
Solid  lines  with  null  terminators 
3D  To  force  the  current  pen  position  to  be  inci  jded  in 
the  axis  range. 

Invisible  lines  with  null  terminators 

Time  series  axis  scale  in  accounting  period 

Intervals 

Device  space  coordinates  specilied  in  percent 
units 

3D  To  specify  that  the  major  axis  the  numeric  labels 
will  be  perpendicular  to  the  axis 
3D  To  specify  perspective  projection  in  which  line 
length  diminishes  as  the  distances  from  the 
viewing  position  become  greater 
3D  Angular  information  be  interpreted  in  PI  radians 
Plain  axes  to  be  drawn  for  high  level  graphing 
Alphanumeric  I/O  to  the  plotting  device 
Invisible  lines  with  point  terminators 
Plotting  in  polar  (RHO,  THETA)  units 
3D  Lables  will  be  above  or  to  the  right  of  the  axis 
Routing  of  graphical  output  to  primary  device 
Time  series  axis  scale  in  quarter  vear  intervals 
Angular  information  be  interpreted  in  radians 
To  indicate  device  space  coordinates  are 
specified  as  is  in  raster  units 
UPRINT/UWRITE  output  in  real  number  format 
Plotting  on  the  user's  reference  axis 
Switch  to  pen  color  red 
Plotting  on  the  user's  reference  axis 
Segments  to  be  retained 
Plotting  in  a relative  coordinate  system 
Plotting  in  a relative  coordinate  system 
3D  Data  structure  building  option 

Segments  to  be  retained  structures  from  merge 
file 

3D  Data  structure  file  handling  command 

3D  Right  handed  coordinate  system 

Alphanumeric  right  justification 
3D  Rectangular  windowing 

Time  series  axis  scale  in  second  intervals 
Security  classification  secret 
Curved  lines  be  interpreted  as  multiple  pen 
operations 

Time  series  axis  scale  in  semi  annual  intervals 
3D  Make  graphic  segments  visible 

Display  of  significant  zero 
Output  of  simulated  hardware  characters 

3D  Data  structure  invocation  option 

3D  Viewpoint  distance  to  be  measured  from  the  view 
site 

Slow  blink  rate 

Use  smallest  hardware  character  size 
Output  of  software  generated  characters 
Sonic  pen  is  graphics  input  device 
To  specify  particular  device  units  instead  of 
percent  units 
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'SPHERICAL' 

Coordinates  are  ol  the  form  (R, THETA, PHI)  where 

R Is  the  number  of  units  of  radius,  THETA  is  the 
number  of  angular  units  around  the  Z axis,  and  PHI 
is  the  number  of  angular  units  around  the  X axis 

STANDARDMENU 

l,3D 

Menuing  option 

'SUBSCRIPT' 

3D 

To  specify  that  the  output  will  be  lowered  from  the 
specified  line  of  text 

SUPERSCRIPT' 

3D 

To  -pecify  that  the  output  will  be  raised  from  the 
specified  line  of  text 

SUPPRESSERRORS' 

Error  output  be  suppressed 

SYMBOL' 

Invisible  lines  with  character  terminators 

SYSTEMAXIS' 

Plotting  on  the  system  axis 

TABLET' 

1 

Analog  tablet  as  graphic  input  device 

TARROW' 

Tic  lines  with  arrow  terminators 

TBACKARROW 

Tic  lines  with  back  arrow  terminators 

TCHARACTER' 

Tic  lines  with  character  terminators 

TCOORDINATES' 

Tic  lines  with  endpoint  coordinates  indicated 

TDOUBLE  ARROW' 

Tic  lines  with  double  arrow  terminators 

TEXT1 

UPRINT/UWRITE  output  in  text  format 

SUBTRACTIVE* 

Subtractive  color  blending  mode 

'TICAXES' 

Tic  axes  to  be  drawn  for  higher  level  graphing 

TICLINE' 

Tic  lines  with  null  terminators 

TNULL' 

Tic  lines  with  null  terminators 

'THINLINES' 

Line  width  to  be  thin 

TPOINT' 

Tic  lines  with  point  terminators 

TRAIL' 

3D 

To  indicate  by  an  identification  number  which 

GCS  routine  is  involved 

TSYMBOL' 

Tic  lines  with  character  terminators 

TWELVEHOUR' 

Time  series  axis  scale  in  twelve  hour  intervals 

TWENTYFOURHOUR 

Time  series  axis  scale  in  twenty  four-hour 
intervals 

UNCLASSIFIED’ 

Security  classification  unclassified 

UNDETECTABLE 

Disabling  pick  sensitivity 

UNIFORM'* 

3D 

High  level  graphing  system 

UNINTERRUPTED 

Non-gapped  line  output 

UPPERCASE 

Upper  case  to  be  TEXT'  case 

USER' 

Plotting  on  a user  defined  axis  system 

VERTICAL' 

3D 

Alphanumeric  output  to  be  spaced  vertically 

VIEWPOINT' 

3D 

View  port  distance  to  be  measured  from  the  view 
point 

VIRTUAL' 

Plotting  in  virtual  space 

VISIBLE 

3D 

Visible  framed  output 

WEEKLY' 

Time  series  axis  scale  in  weekly  intervals 

WHITE' 

Switch  to  pen  color  white 

WIDELINES' 

Line  width  to  be  wide 

WORKING 

New  cumulative  user  coordinate  system 

WORLDCOOROINATESYSTEM 

Coordinate  system  to  be  the  default  axis  system 

XABSOLUTE' 

3D 

To  specify  the  X coordinates  with  respect  to  the 
origin  of  the  current  coordinate  system  for 
indicated  components  Y and  Z components  are  to 
be  specified  with  respect  to  the  current  beam/pen 
position 

X ALPHANUMERIC' 

An  X axis  alphanumeric  label 

XAXIS' 

The  X axis  be  drawn  for  high  level  graphing 

XBOTHLABELS' 

X axis  alphanumeric  and  numeric  labels 

'XCONSTANT' 

3D 

To  indicate  that  the  X component  does  not  vary 
during  the  drawing  of  any  curve  in  higher  level 
graphics 
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XEDGEYZEROAXIS' 

'XLOGARITHMIC' 

'XNEGATIVE' 

XNUMERIC 

'XPOSITIVE' 

'XRELATIVE' 


’XREPEAT' 


'XYAXES' 

XYABSOLUTE' 


XYCOORDINATES' 


XYLOGARITHMIC’ 

XYPLANE' 

XYRELATIVE’ 


'XYVIEW' 

XYZAXES 

XY^COORDINATES' 

XYZLOG 

XYZVIEW 

XYZb' 

XYCOORDINATES' 

XZABSOLUTE' 


XZAXES' 

XZEROYEDGEAXIS' 

'XZLOGARITHMIC' 

'XZPLANE’ 

'XZRELATIVE' 


XZVIEW 

'XZYb' 

YABSOLUTE' 


1 


The  X axis  at  edge  of  graph 
Logarithmic  X and  linear  Y plotting 
3D  Negative  X axis  represents  up  in  3D  graphics 
3D  An  X axis  numeric  label 
3D  Positive  X axis  represents  up  in  3D  graphics 

3D  To  specify  the  X coordinates  with  respect  to  the 

current  beam/pen  position.  Y and  Z components 
are  to  be  specified  with  respect  to  the  origin  of  the 
current  coordinate  system 

3D  To  indicate  that  one  set  of  X values  is  provided 

which  will  be  reused  for  every  curve  in  higher  level 
graphing 

The  X and  Y axes  be  drawn  for  high  level  graphing 
3D  To  specify  the  X and  Y coordinates  with  respect  to 
the  origin  of  the  current  coordinate  system  for  the 
indicated  components.  Z components  are  to  be 
specified  with  respect  to  the  current  beam/pen 
position 

To  specify  that  the  data  printed  by  UPRINT/ 
UWRITE  is  in  the  form  of  an  (X,Y)  coordinate  pair. 
3D  Logarthmic  X and  Y plotung,  linear  Z plotting 
3D  Labels  are  to  be  drawn  in  the  plane  formed  by  the 
X and  Y axes 

3D  To  specify  the  X and  Y components  with  respect  to 
the  current  beam/pen  position.  Z components  are 
to  be  specified  with  respect  to  the  origin  of  the 
current  coordinate  system 
3D  To  view  plane  formed  by  X and  Y axes 
3D  All  three  axes  are  to  be  drawn  for  higher  level 
graphing 

3D  Text  printed  by  U3PRNT/U3WRIT  to  be  in  form  of 
(X,Y,Z)  triplet 

3D  Applies  logamithmic  transforms  to  all  three 
components 

3D  To  view  all  three  axes 

3D  To  set  the  rotation  application  order  as  indicated 
UPRINT/UWRITE  output  in  (X,Y)  coordinate  format 
3D  To  specify  the  X and  Z coordinates  with  respect  to 
the  origin  of  the  current  coordinate  system  for  the 
indicated  components.  Y components  are  to  be 
specified  with  respect  to  the  current  beam 
position 

3D  The  X and  Z axes  are  to  be  drawn  for  higher  level 
graphing 

The  X axis  adjacent  to  ooundary  of  display  area 
3D  Applies  Logarithmic  transformation  to  X and  Z 
components 

3D  Label  plane  to  be  plane  formed  by  X and  Z axis 
3D  To  specify  the  X and  Z components  with  respect  to 
the  current  beam/pen  position.  Z components  are 
to  be  specified  with  respect  to  the  origin  of  the 
current  coordinate  system 

3D  To  view  the  plane  formed  by  the  X and  Z axes 
3D  To  set  the  rotation  application  order  as  indicated 
3D  Y coordinates  are  specified  with  respect  to  the 
origin  of  the  current  coordinate  system  for  the 
indicated  units  X and  Z components  are  specified 
with  respect  to  the  current  beam/pen  position 
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'YALPHANUMERIC' 

'YAXIS' 

YBOTHLABELS' 

'YCONSTANT' 

YEARLY' 

YEDGEXZEROAXIS' 

YELLOW' 

'YLOGARITHMIC' 

YNEGATIVE' 

'YNUMERIC' 

'YPOSITIVE' 

YRELATIVE' 


YREPEAT' 


YXZb' 

YZABSOLUTE 


YZAXES' 

'YZPLANE' 

YZEROXEDGEAXIS 

YZLOGARITHMIC 

YZRELATIVE’ 


'YZVIEW' 

YZXb' 

ZABSOLUTE' 


ZALPHANU  MERIC' 
ZAXIS' 

ZBOTHLABELS' 

ZCLIP' 

ZCONSTANT' 

ZEROAXES' 

ZLOGARITHMIC' 

'ZNEGATIVE' 

ZNUMERIC 


Y axis  alphabetic  label 

The  Y axis  to  be  drawn  for  high  level  graphing 

Y axis  having  alphabetic  and  numeric  labels 
3D  To  indicate  that  the  Y component  does  not  vary 

during  the  drawing  of  any  curve 
Time  series  axis  scale  in  yearly  intervals 
The  Y axis  at  edge  of  graph 
Switch  to  pen  color  yellow 
Logarithmic  Y plotting 

3D  Negative  Y direction  represents  up  in  3D  graphics 

Y axis  numeric  label 

3D  Positive  Y direction  represents  up  in  3D  graphics 
3D  Y coordinates  are  specified  with  respect  to  the 
current  beam/pen  position  for  the  indicated 
components  X and  Z components  are  to  be 
specified  with  respect  to  the  origin  of  the  current 
coordinate  system 

3D  To  indicate  that  one  set  of  Y valves  is  provided 

which  will  be  reused  for  every  curve  in  higher  level 
graphing 

' 3D  To  set  the  rotation  application  order  as  indicated 
3D  Y and  Z coordinates  are  specified  with  respect  to 
the  origin  of  the  current  coordinate  system  for  the 
indicated  under  X components  are  specified  with 
respect  to  the  current  beam/pen  position 
3D  The  Y and  Z axes  to  be  drawn  for  higher  level 
graphing 

3D  Label  plane  to  be  plane  formed  by  Y and  Z axes 
The  Y axis  adjacent  to  boundary  of  display  area 
3D  Applies  logarithmic  transformations  to  Y and  Z 
components 

3D  Y and  Z coordinates  to  be  specified  with  respect  to 
the  current  beam/pen  position  for  the  Y and  Z 
components,  and  the  X component  to  be  specified 
with  respect  to  the  current  beam/pen  position  for 
the  Y and  Z components,  and  the  X component  to 
be  specified  with  respect  to  the  origin  of  the 
current  coordinate  system 

3D  To  view  the  plane  formed  by  the  Y and  Z axes 
3D  To  set  the  rotation  application  order  as  specified 
3D  Z coordinates  to  be  specified  with  respect  to  the 
origin  of  the  current  coordinate  system  for  the 
indicated  component  X and  Y components  are  to 
be  specified  with  respect  to  the  current  beam/pen 
position 

3D  Alphanumeric  labels  to  be  drawn  for  higher  level 
drawing 

3D  Z axis  is  to  be  drawn  for  higher  level  graphing 
3D  Both  numeric  and  alphanumeric  labels  to  be 
drawn  for  higher  level  drawing 
3D  Clip  in  Z direction 

3D  To  indicate  that  the  Z component  does  not  vary 
during  the  drawing  of  any  curve 
X and  Y axes  adjacent  to  boundary  of  display  area 
3D  Applies  logarithmic  transform  to  Z component 
3D  Negative  Z axis  represents  up  direction  in  3D 
graphics 

3D  Numeric  Z labels  to  be  drawn  for  high  level 
graphing 
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ZPOSITIVE 

3D 

Positive  Z axis  represents  up  direction  in  3D 
graphics 

ZRELATIVE' 

3D 

Z coordinates  are  to  be  specified  with  respect  to 
the  current  beam/pen  position.  X and  Y 
components  are  to  be  specified  with  respect  to  the 
origin  of  the  current  coordinate  system 

ZREPEAT' 

3D 

To  indicate  that  one  set  of  Z values  is  provided 
which  will  be  reused  for  every  curve  in  higher  level 
graphing 

'ZXYb' 

3D 

To  set  the  rotation  application  order  as  indicated 

ZYXb' 

3D 

To  set  the  rotation  application  order  as  indicated 

'1 2HOUR' 

Twelve  hour  time  axis 

'13WEEK' 

Thirteen  week  time  axis 

'2DCOORDI  NATES' 

3D 

To  specify  A coordinate  terminator  in  which  two 
components  are  listed.  (This  option  is 
independent  of  the  text  coordinate  options  of 
XYCOORDINATES'  and  XYZCOORDINATES) 

'24HOUR' 

Twenty  four  time  axis 

'3DCOORDINATE' 

3D 

To  specify  a coordinate  terminator  in  which  all 
three  components  are  listed.  (This  option  is 
independent  of  the  text  coordinate  option  of 
XYCOORDINATES'  and  XYZCOORDINATES  ) 

NOTE:  b - is  a blank  or  space 
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GCS  DEFAULT  CONDITIONS 


This  section  addresses  those  options  which  are  present  in  the  Graphics  Status  Area  as 
default  options  After  a call  to  Subroutine  USTART,  the  Graphics  Compatibility  System  is 
set  to  the  default  conditions,  as  indicated.  The  default  options  can  be  divided  into  two 
groups:  Basic  Plotting  Options  and  High  Level  Plotting  Options 


I.  Default  Basic  Plotting  Options 

Plotting  is  done  in  'RECTANGULAR'  and  ABSOLUTE'  coordinates  on  the  SYSTEM' 
coordinate  axis.  The  USER’  coordinate  axes  are  identical  to  the  system  axis.  Plotting  is 
done  in  VIRTUAL’  space  with  a virtual  window  whose  limits  are  from  0.0  to  1 00.0  in  the  X 
direction,  and  from  0.0  to  1 00.0  in  the  Y direction.  The  virtual  window  is  mapped  into  a 
display  area  which  is  the  largest  square  area  on  the  device  display  surface.  The  right 
hand  edge  of  the  square  corresponds  to  the  right  edge  of  the  display  surface. 

Character  output  in  GCS  will  be,  by  default,  in  HARDWARE’  character  format,  of  type 
GOTHIC’  and  of  ’MEDIUM’  size  If  ‘SOFTWARE’  characters  are  requested  via  USET  then 
the  default  horizontal  size  is  five  (5.0)  virtual  units,  and  the  default  vertical  size  is  seven 
(7.0)  virtual  units. 

By  default,  angular  units  for  angular  specifications  are  in  DEGREES’  If  the  user 
switches  to  DEVICE’  space,  then  all  length  or  distance  units  (i.e.  from  UPRINT  or 
UREAD),  the  data  will  be  assumed  to  be  in  TEXT’  mode  The  alphanumeric  output 
defaults  to  the  'PLOT'  device  if  possible,  and  any  graphic  output  will  go  to  all  devices  in  a 
cluster.  Graphic  input  is  from  the  primary  input  device;  the  number  of  digits  of  precision 
for  numeric  output  is  four  (4);  and  GCS  detected  errors  are  signalled  as  they  occur. 

A line  which  is  drawn  by  a subroutine  in  GCS  is  considered  to  consist  of  two  parts;  a line 
type  and  a line  terminator.  The  line  type  may  be  solid  (visible),  ticced,  null  (invisible), 
dashed,  or  alphanumeric.  The  line  may  be  terminated  by  an  arrow,  a back  arrow,  double 
arrows,  a character,  a point,  a symbol,  a set  of  coordinate  values,  or  nothing  at  all.  The 
default  line  type  in  GCS  is  'SOLID'  with  NULL'  termintors  CLNULL  ).  If  'TICLINES'  are 
requested  via  USET  option,  then  the  default  tic  interval  is  ten  (1 0.0)  virtual  units.  It  is  the 
user's  responsibility  to  insure  that  the  tic  interval  is  appropriate  if  he  switches  to 
DEVICE'  space  or  alters  the  default  virtual  window  setting  or  the  default  display  area 
setting  If  ‘DASHLINES’  are  requested,  then  the  default  dash  specification  (56.)  will 
result  in  a dashed  line  which  is  alternately  light  and  dark,  in  increments  of  approximately 
0.075  inches.  If  a 'CHARACTER'  line  terminator  is  requested  but  no  character  is 
specified  by  way  of  Subroutine  UPSET,  then  the  character  asterisk  (*)  is  used.  Similarly, 
the  asterisk  is  used  to  compose  the  line  type  if  ‘ALPHANUMERIC’  lines  are  requested 


II.  Default  High  Level  Plotting  Options 

For  each  call  to  UPLOT  or  UPLOT1,  the  data  values  which  represent  the  curves  are 
examined,  and  a NEWSCALE'  is  created  UAXIS  will  be  invoked  to  create  'XYAXES'. 
The  data  values  will  be  examined,  and  zero  will  always  appear  somewhere  on  the  axis 
Numeric  labels  only  will  be  output  for  the  X axis  and  the  Y axis  The  values  which  appear 
at  the  tic  marks  on  the  axes  will  be  neat'  numbers,  and  the  axes  will  be  positioned  at  the 
EDGE’  of  the  plot.  Both  the  X axis  and  the  Y axis  will  be  drawn  in  a linear  coordinate 
space  The  axis  lines  will  be  ticked  If  a time  series  axis  is  plotted  by  invoking 
Subroutine  UTAXIS,  the  default  interval  for  the  X axis  will  be  'DAILY'.  No  curves  will  bo  fit 
to  the  data  values,  but  if  'FITPOLYNOMIAL'  is  requested,  then  subroutine  UPLOT  will 
attempt  to  fit  a fifth  degree  polynomial  to  the  data 
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III.  Summary 


COORDINATE  SPACE: 
COORDINATE  TYPE: 
COORDINATE  SYSTEM: 
COORDINATE  AXIS: 

VIRTUAL  WINDOW 

DISPLAY  AREA 

DEVICE  SPACE  UNITS: 
ANGULAR  UNITS: 

LINE  TYPE 

SYSTEM  CHARACTER: 

TIC  INTERVAL: 

DASH  SPECIFICATION: 
CHARACTER  TYPE: 
CHARACTER  FONT: 
CHARACTER  SIZE: 

SOFTWARE  CHARACTER  SIZE: 

INPUT/OUTPUT  FORMAT: 
ALPHANUMERIC  MARGINS: 
OUTPUT  ROUTE: 

OUTPUT  DISTRIBUTION: 
GRAPHIC  INPUT: 

DIGITS  OF  PRECISION 
ERROR  HANDLING: 

AXIS  SCALING: 

AXIS  LABELING: 

AXIS  POSITIONING: 

AXIS  TYPE: 

AXIS  EXISTENCE: 

AXIS  COORDINATES: 

TIME  SERIES  AXIS  SCALE: 


■VIRTUAL’ 

‘ABSOLUTE’ 

’RECTANGULAR’ 

’SYSTEM’ 

0 0 TO  100  0 X DIRECTION 

0 0 TO  100  0 Y DIRECTION 

Largest  square  area  which  is  right  justified  on  the 

display  surface  of  the  device 

'INCHES' 

‘DEGREES' 

‘LINE’  or  'LNULL' 
asterisk  (*) 

1 0.0  virtual  units 
56. 

■HARDWARE’ 

‘GOTHIC’ 

MEDIUM’ 

5.0  virtual  units  horizontal 

7.0  virtual  units  vertical 
’TEXT’ 

Device  display  surface  boundaries. 

PLOTDEVICE’ 

'ALLDEVICES’ 

Primary  input  device 
4 

'IMMEDIATE  OUTPUT’ 

•AUTOSCALE’ 

'XNUMERICLABEL' 

‘YNUMERICLABEL’ 

‘EDGEAXIS’ 

TICAXIS' 

‘XYAXES’ 

■LINXAXIS' 

'LINYAXIS' 

’DAILY’ 


USET  OPTIONS  BY  CLASS 


Coordinate  Type 

ABSOLUTE'  ‘INCREMENTAL’  'RIGHTHANDED ' ZABSOLUTE ' 

RELATIVE'  XYRELATIVE ’ YABSOLUTE ' ZRELATIVE' 

’ XABSOLUTE ’ XZf  3SOLUTE'  YRELATIVE ’ 

XRELATIYE'  XZRELATIVE'  YZABSOLUTE ' 

XYABSOLUTE'  LEFT  HANDED'  YZRELATIVE' 

Coordinate  Type 

RECTANGULAR’  'CYLINDRICAL'  LOGOBJECT'  XYZLOGARITHMIC' 

’POLAR’  SPHERICAL'  LOGSYSTEM'  XZLOGARITHMIC' 

’LOGARITHIMC’  ‘XLOGARITHMIC’  LOGUSER ’ YZLOGARITHMIC' 

■YLOGARITHMIC’  XYLOGAR1THMIC  ‘NOLOGARITHMS'  ZLOGARITHMIC' 
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Pi- 


Coordinate Space 

VIRTUAL' 

' SPECIFIC ' 

DEVICE' 

Device  Space  Units 

•INCHES' 

‘CENTIMETERS' 

FONTUNITS’ 

‘PERCENTUNITS’ 

RASTERUNITS' 

■ DISPLAY ' 

Angular  Units 

DEGREES’ 

GRADS' 

'RADIANS' 

PIRAD'ANS' 

Frame  Composition 

'INVISIBLE' 

'VISIBLE' 

MILS' 

Line  Type 

'LINE' 

'POINT' 

'LNULL' 

DASH' 

'TICLINE' 

'DNULL' 

'CHARACTER' 

NCHARACTER’ 

'LBACKARROW' 

'SYMBOL' 

NSYMBOL' 

‘LCOORDINATE’ 

ALPHANUMERIC' 

ANULL’ 

‘NO  LINE' 

'MOVE' 

NOLINE’ 

'NO  MARK' 

'ARROWLINE' 

'NOMARK' 

‘DIMENSIONLINE 

'DOUBLEARROWLINE' 

npoint' 

‘TNULL’ 

NNULL' 

‘LARROW’ 

'LDOUBLEARROW' 

BACKARROWLINE' 

'COORDINATELINE' 


Lines  that  are  drawn  by  GCS  are  composed  on  a line  type  and  a line  terminator.  A large 
number  of  line  types  and  terminators  are  possible.  The  specification  is  composed  by 
combining  the  first  letter  of  the  line  type  with  the  name  of  the  terminator  The  following 
tables  illustrate  the  possible  linetypes  and  terminators. 

LINE  TYPE  FIRST  LETTER 


LINE  L 

DASH  D 

ALPHANUMERIC  A 

NULL  (INVISIBLE)  N 

TICLINE  T 


Line  Terminators 

NULL  (NO  TERMINATORS) 

CHARACTER 

SYMBOL 

COORDINATE 

PO'NT 

ARROW 

BACKARROW 

DOUBLEARROW 
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Line  Repeatability 


UNINTERRUPTED' 

GAPPED’ 

Curve  Approximation 

CONTINUOUS' 

'SEGMENTED' 

Intensity 

'DIM' 

'BRIGHT' 

Coordinate  Axis 

'SYSTEMAXIS' 

‘USERAXIS' 

Coordinate  Axis  Composition 

> WORKINGAXIS' 

‘REFERENCE  AXIS’ 

Character  Format 

'GOTHIC' 

'UPPERCASE' 

'ITALIC' 

'LOWERCASE' 

Character  Size 

'MEDIUM' 

'SMALL' 

'LARGE' 

'EXTRALARGE' 

Character  Type 

HARDWARE' 

SOFTWARE' 

Error  Conditions 

'ERROR  OUTPUT'  'NOABORT' 

'SUPPRESSERRORS'  'ABEND' 

'DEFERERRORS'  'ABORT’ 

Structure  Definition 

BUILD' 

' NOBUILD ■ 

Structure  Building 

' EXECUTE ' 

NOEXECUTE' 
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Structure  File  Manipulation 

APPEND ' REPLACE 

■ IGNORE ' REWIND 

■ MULTIPLE ' SINGLE' 

Structure  Editing 

'COMPRESSED' 

'EXPANDED' 

Axis  Scaling 

'AUTOSCALE' 

•FULLSCALE' 

'OWNSCALE' 

Axis  Scale  Existence 

'NEWSCALE' 

'OLDSCALE' 

Axis  Existence 

XYAXES  'NOAXES' 

'XAXIS'  XYZAXES ' 

'YAXIS'  XZAXES' 

‘YZAXES’  ZAXIS’ 

Axis  Positioning 

EDGEAXIS’ 

'ZEROAXIS' 

•PENAXIS' 

XEDGEYZEROAXIS' 
XZEROYEDGEAXIS' 

Numeric  Labels 

BESTFORMAT' 

'FORMAT' 

GFORMAT 

Label  Positioning 

NEGA  TIVESIDE' 

' PARALLELLABELS ' 

XYPLANE' 

'YPLANE' 

X Axis  Type 

'LINAXIS' 

LOGAXIS’ 

'LNAXIS' 

Y Axis  Type 

LINYAXIS' 
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A 


YEDGEXZEROAXIS' 
'YZEROXEDGE  AXIS' 


PERPENDICULARLABELS' 

POSITIVESIDE 

XZPLANE' 


I 


•LOGYAXIS' 

‘LNYAXIS’ 


X Axis  Labels 

'XNUMERIC' 

■XA'  PHANUMERIC' 

■XBOTHLABELS' 

'NOXLABEL' 

Y Axis  Labels 

‘YNUMERIC’ 

‘YALPHANUMERIC' 

‘NOYLABEL' 

'YBOTHLABELS' 


Z Axis  Type 
ZLOGARITHMIC' 

Z Axis  Type 

ZNUMERIC ' 

ZALPHANUMERIC' 

NOZLABEL' 

ZBOTHLABELS ' 

Axis  Type 

•TICAXIS’ 

•PLAINAXIS' 

'GRIDAXIS' 

Three  Dimensional  Windowing 


SITEPOINT ’ 
■VIEWPOINT 

Windowing 

CWINDOWING' 

‘ NOWINDOWING ' 

' RWINDOWINE ' 

Text  Output 

•ACENTER' 
'NOCENTER' 
'NOSCRIPT' 
XYZCOORDINATES ' 
XYCOORDINATES' 
‘2DCOORDINATES’ 


NOSUBSCRIPTING ' 
SUBSCRIPT' 
SUPERSCRIPT 
INTEGER’ 

TEXT’ 

' 3DCOORDINATES ’ 


Origin  Inclusion 

’ NOORIGIN ' 

ORIGIN 

PENORIGIN 


UPPERCASE' 

■HORIZONTAL' 

'VERTICAL' 

REAL' 
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Device  Space  Clipping 


i 


■NOCLIP' 

'ZCLIP' 

Coordinate  Repeat  Option 

‘ NOREPEAT ' NOZREPEAT  YCONSTANT ‘ ZREPEAT' 

NOXREPEAT’  X CONSTANT  ' YREPEAT 

NOYREPEAT  XREPEAT  ZCONSTANT 

Tranaforniation  Type 

■ORTHOGONAL ’ 

PERSPECTIVE' 

Axis  Orientation 

XNEGATIVE-  ‘ YNEGATIVE ' ZNEGATIVE' 

XPOSITIVE  ‘ YPOSITIVE ' ZPOSITIVE ' 

Three  Dimension  Viewing 

‘XYVIEW  XZVIEW 

XYZVIEW  -YZVIEW 


Rotation  Application  Order 

XYZ-  1 YZX ' 

XZY-  ZXY‘ 

■YXZ'  XYX- 


Time  Axis  Scaling 

1 2Hour 
1 3Week 
24Hour 
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Subroutine  USHOW 


3D 


t 


FUNCTION: 

To  request  that  the  named  frame  be  placed  in  show  status. 
CALLING  SEQUENCE: 

CALL  USHOW  (NAME) 


Where: 

NAME  is  Ihe  eight  character  alphanumeric  constant  or  variable  of  a currently 
defined  frame. 

OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 

The  execution  of  the  subroutine  causes  the  frame  NAME  to  be  activated  on  the  face  of 
the  display  screen.  The  frame  must  have  been  previously  defined  by  a subroutine 
UFRAME  and  subroutine  FREND  pair.  The  initial  status  of  a frame  is  show  status. 

Programming  Notes: 
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Subroutine  USPLIN 
FUNCTION: 


This  routine  fits  a cubic  spline  curve  to  the  specified  input  data  and  returns  a set  of  X 
and  V coordinates  of  data  points  which  lie  on  the  spline  curve. 

CALLING  SEQUENCE: 

CALL  USPLIN  (X,Y,XN,RX,RY,RN) 


is  an  array  of  XN  elements  which  is  the  X component  of  the  data  points  to  be 


is  an  array  of  XN  elements  which  is  the  Y component  of  the  data  points  to  be 
fitted. 

is  the  number  of  points  to  be  fitted 

is  an  array  of  RN  elements  which  is  the  X component  of  the  points  which 
are  returned. 

is  an  array  of  RM  elements  which  is  the  Y component  of  the  points  which 
are  returned. 

is  the  number  of  points  to  be  returned  (.LE.200). 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  number  of  points  to  be  fitted  must  be  greater  than  two.  A maximum  of  one  hundred 
data  points  may  be  fitted.  The  number  of  data  points  to  be  returned  must  be  at  least 
twice  the  number  of  input  data  points.  As  the  ratio  of  output  points  to  input  points  is 
increased,  the  resultant  spline  curve  fit  appears  smoother.  All  data  points  are  assumed 
to  be  in  rectangular  units. 

Programming  Notes: 


Where 

X 

Y 

XN 

RX 

RY 

RN 


\ 


A 


DIMENSION  X<l8).Y<ia>.RX<Ca>.RYCC8> 

5^*  ia./ 

DATA  Y/2.,4.,S..e.<,0..7..S.#4..3.,,2./ 
t*Ai  i U6TART  * 

CALL  UMZNDO  C8..  19.6.8..  18. S> 

CALL  U8ET  C'NCHARACTERO 

CALL  ULXNE  CX.  Y.  18.3 

CALL  USPLIN  CX.  Y.  18. .RX.RY.SS. > 

CAUL  U8ET  C' LINE '3 
CALL  ULINE  CRX.RY.B8.3 
CALL  UEND 


Subroutine  USTART 


1 


FUNCTION: 

This  routine  initializes  the  Graphics  Status  Area  (GSA)  to  the  default  condition  and 
insures  that  the  terminal  is  ready  for  graphic  output. 

CALLING  SEQUENCE: 

CALL  USTART 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

This  routine  must  be  called  before  any  other  GCS  subroutine  since  the  contents  of  GSA 
are  undefined  prior  to  calling  USTART.  The  terminal  will  be  readied  for  graphics 
processing  by  erasing  the  screen  and  positioning  the  beam  at  location  (0.,0.)  in  the 
default  virtual  space.  Default  conditions  are  listed  in  the  USET  and  UPSET  tables.  Other 
defaults  of  interest  are  listed  below: 

user  window  boundary  - XMIN  - 0.0,  XMAX  — 100.0 

YMIN  - 0.0,  YMIN  - 100.0 

user  display  area  - largest  right-justified  square  that  can  be  defined  on  the 

plotting  surface. 

margin  boundaries  - edges  of  entire  display  surface. 

Programming  Notes: 


“*■***. 
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Subroutine  USTRCT 


3D 


FUNCTION: 

This  routine  starts  construction  of  a new  graphics  data  structure.  It  creates  the  structure 
header  and  places  GCS  in  BUILD  mode. 


CALLING  SEQUENCE: 

CALL  USTRCT(NAME) 


Where 

NAME  is  an  eight  character  data  structure  name  not  currently  used  for  this  purpose 
in  the  current  structure  file. 

OPTIONS: 

UPSETCLIBRARY', ) must  be  specified  for  the  structure  random  file  to  be  defined. 

Structure  Construction  Visibility  Options:  ‘EXECUTE’  or  ‘NOEXECUTE’ 

COMMENTS: 

The  user  again  must  specify  a random  file  for  the  data  structure  library.  The  structure 
name  must  be  eight  characters,  thus  blanks  must  be  put  in  by  the  user  if  the  name  is  too 
short.  If  the  user  wishes  to  display  data  not  to  be  saved  in  the  structure,  he  may  call 
USETfNOBUILD')  to  halt  data  structure  creation.  Later  on,  he  may  resume  construction 
by  calling  USET('BUILD').  If  the  user  does  not  wish  to  view  the  construction  of  his 
structure,  he  should  specify  ‘NOEXECUTE’.  Otherwise  ‘EXECUTE’  is  the  default  and  he 
will  watch  his  structure  being  build. 

Programming  Notes: 


Subroutine  USTUD 


FUNCTION: 

This  routine  returns  to  the  user  the  limits  of  his  display  area. 

CALLING  SEQUENCE: 

CALL  USTUD  (ARRAY) 

Where 

ARRAY  is  an  array  of  at  least  eight  words  defined  as  follows: 

ARRAY(l)  = minimum  X value  in  virtual  space 
ARRAY  (2)  = maximum  X value  in  virtual  space 
ARRAY(3)  = minimum  Y value  in  virtual  space 
ARRAY  (4)  = maximum  Y value  in  virtual  space 
ARRAY  (5)  = minimum  X value  in  device  space 
ARRAY (6)  = maximum  X value  in  device  space 
ARRAY(7)  = minimun  Y value  in  device  space 
ARRAY  (8)  = maximum  Y value  in  device  space 

OPTIONS: 

Device  Units:  INCHES',  ‘CENTIMETERS',  ‘PERCENT',  'FONT',  'RASTER', 
‘SPECIFICATION- 

COMMENTS: 

A call  to  this  routine  will  return  to  the  user  the  limits  of  his  virtual  window  and  display 
area  (virtual)  or  the  limits  of  the  device  surface  and  clip  area  (device).  The  device  units 
are  in  current  units. 

Programming  Notes: 


Subroutine  USVPN 


FUNCTION: 

This  routine  saves  the  pen-related  variables  in  the  Graphics  Status  Area  (GSA)  in  an 
array  furnished  by  the  user.  This  array  will  be  suitable  for  later  use  as  input  to  UNSVPN 
to  restore  the  pen-related  variables  of  the  status  area. 

CALLING  SEQUENCE: 


CALL  USVPN  (ARRAY) 

Where: 

ASSAY  is  an  array  large  enough  to  contain  the  pen-related  variables  to  be  saved  from 
the  status  area. 

OPTIONS  which  may  apply: 

No  options  apply. 


The  size  of  the  array  necessary  to  save  the  pen-related  variables  of  the  GSA  is 
dependent  upon  the  particular  version  of  GCS  being  used. 

Variables  to  be  saved  are  only  those  which  relate  to  the  functions  of  the  pen.  Not  saved 
are  those  variables  which  relate  to  such  items  as  alphanumeric  output,  high-level 
graphics,  dynamic  graphics,  and  data  structure  controls.  Also  not  saved  are  coordinate 
system  specifications  which  have  their  own  save  and  restore  routines  (see  USVTR  and 
UNSVTR). 

The  user  is  cautioned  that  any  modification  to  the  save  array  prior  to  its  restoration  into 
the  GSA  may  yield  indeterminate  results. 

Programming  Notes: 


( \ 
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Subroutine  USVTR 
FUNCTION: 


I 


This  routine  will  save  user  coordinate  system  transformation  status  specification  of  the 
Qraphics  Status  Area  (GSA). 

CALLING  SEQUENCE: 


Where 


CALL  USVTR  (SARRAY) 


SARRAY  is  an  array  of  29  words  into  which  the  current  coordinate  system  transform  is 
stored. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  Invocation  of  this  subroutine  will  save  the  current  user  coordinate  system  in  effect, 
but  will  not  alter  the  GCS  status. 


Programming  Notes: 
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Subroutine  UTAXIS 


FUNCTION: 

This  routine  creates  a set  of  axes  which  displays  time  increments  along  the  horizontal 
axis  and  numeric  values  along  the  vertical  axis.  It  will  support  scaling  and  labeling 
options  as  provided  for  UAXIS.  All  output  from  UTAXIS  will  be  contained  within  the 
currently  defined  UDARFA 

CALLING  SEQUENCE: 

CALL  UTAXCS  (BEGPER, PERIOD, YMIN.YMAX) 

Where 

BEGPER  la  the  number  which  represents  the  beginning  time  period  (l=first  period, 
2=second  period  etc.). 

PERIOD  indicates  the  number  of  periods  to  be  displayed. 

YMIN  is  the  minimum  Y value  to  be  displayed. 

YMAX  is  the  maximum  Y value  to  be  displayed. 

OPTIONS  which  may  apply: 

Axis  Labeling  Options: 


Axis  Titling  Options: 

Tic-Interval  Specification: 
Scaling  Options: 

Period  Options: 


Numeric  Precision  Option: 

COMMENTS: 

This  routine  will  provide  a set  of  axes  similar  to  the  UAXIS  format.  However,  at  those 
locations  along  the  X axis  where  numeric  labels  would  appear,  UTAXIS  will  provide 
suitable  labels  to  specify  those  options  set  in  the  Graphics  Status  Area.  For  a general 
description  of  all  of  the  options  indicated  above  except  the  period  options,  see  UAXIS. 
Specific  comments  will  be  provide  below  on  deviations  from  those  general  descriptions. 

Programming  Notes: 


NOXLABELS’,  ’XNUMERIC',  ^ALPHANUMERIC’, 
‘XBOTHLABELS’,  ‘NOYLABELS’,  YNUMERIC’, 
'YALPHANUMERIC’,  'YBOTHLABELS' 

UPSET  option  ‘TICX’,  UPSET  option  ‘YLABEL’ 

UPSET  option  ’XLABEL’,  UPSET  option  ’TICY' 
•AUTOSCALE’,  ‘FULLSC  ALE’,  ‘OWNSC  ALE’ 
•MONTHS',  ’YEARS’,  WEEKDAYS’,  ‘DAYS’,  ‘DATE’, 
•MINUTES'.  ’HOURS’,  ‘SECONDS’,  ‘1 2 HOUR’  ’24 
HOUR’,  ‘QUARTERS’,  ’PERIODIC’ 

UPSET  option  ‘PRECISION’ 
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Period  Option*: 


The  period  options  indicate  time  divisions  which  will  be  used  to  label  the  horizontal  axis. 
The  time  periods  are  cyclical  and  will  be  repeated  as  necessary  until  the  number  of 
periods  specified  has  been  indicated 


SECONDS' 

‘MINUTES' 

HOURS' 

DAYS' 

WEEKDAYS' 

MONTHS' 

QUARTERS' 

YEARS' 

'DATE' 


Continuous  from  that  specified  in  BEGPER. 

Continuous  from  that  specified  in  BEGPER. 

Continuous  from  that  specified  in  BEGPER. 

Continuous  from  that  specified  in  BEGPER. 

Starts  with  BEGPER;  recycles  after  SATURDAY'. 

Starts  with  BEGPER;  recycles  after  'DECEMBER'. 

Starts  with  BEGPER;  recycles  after  '4THQTR'. 

Continuous  from  that  specified  in  BEGPER. 

Starts  with  BEGPER;  recycles  on  month  boundaries.  This  value  should 
have  the  format  YYYMMDD  or  YYMMDD 


Axis  Scaling  Options: 

The  axis  scaling  option  will  not  be  effective  for  the  time  period  axis.  If  the  axis  labels  are 
non-numeric  (‘WEEKDAYS’,  'MONTHS’,  or  'QUARTERS'),  then  the  first  period  is 
assigned  value  zero  and  the  last  period  has  the  value  PERIOD-1. 


Subroutine  UTERM 


3D 


FUNCTION: 

This  routine  terminates  construction  of  the  current  graphics  data  structure. 

CALLING  SEQUENCE: 

CALL  UTERM(NAME) 


Where 

NAME  is  the  eight  character  name  of  the  structure  currently  being  built. 
COMMENTS: 

This  routine  puts  a zero  word  after  the  last  structure  element  and  places  GCS  in 
NOBUILD  mode. 


Programming  Notes: 


Subroutine  UTILTY 


3D 


FUNCTION: 

This  routine  performs  standard  utility  function  'or  data  structure  files.  Some  options 
will  manipulate  files,  others  manipulate  structures  themselves  and  their  names. 

CALLING  SEQUENCE: 

CALL  UTILTY  (ACTION.VALUE) 

Where 

ACTION  is  a Hollerith  character  string  which  specifies  one  of  the  following  options: 

'LOAD'  loads  library  file  from  user  sequential  file 
'SAVE'  creates  user  sequential  file  from  library  file 
'PURGE'  empties  current  structure  library  file 
'MERGE'  merges  requested  file  into  library  file 
'DELETE'  deletes  structure  from  library  file 
'RENAME'  renames  old  structure  to  new  structure  name. 

VALUE  is  a Fortran  file  code  number  for  LOAD.SAVE,  and 

MERGE  is  a structure  name  for  DELETE,  and  is  an  array  of  two  rows  containing  two 
structure  names  for  RENAME. 

COMMENTS: 


This  routine  provides  utility  manipulations  on  structures  and  structure  files 
The  following  comments  apply  to  each  separate  action. 

SAVE  writes  card  image  records  to  a user  sequential  file  of  all  structures  in  the  library. 

LOAD  reads  the  card  image  user  file  and  puts  the  information  into  data  structure  format 
in  the  random  file.  This  action  has  a compacting  effect. 

PURGE  empties  the  current  library  file. 

MERGE  merges  the  user  card  image  file  into  the  current  structure  library.  Duplicate 
names  will  be  REPLACEd  or  IGNOREd  according  to  these  USET  options. 

DELETE  removes  a structure  from  the  library  file. 

RENAME  will  rename  the  structure  of  the  first  name  given  with  that  of  the  second  name. 

Programming  Notes: 


I 
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Subroutine  UTSFIT 


FUNCTION: 

To  compute  an  expoentially  smoothed  forecast  of  the  input  time  series  data.  If  desired, 
the  forecast  will  be  trend  adjusted. 

CALLING  SEQUENCE: 

CALL  UTSFITtARRAY, POINTS, FCST, ALPHA) 

Where 

ARRAY  is  a real  array  of  size  POINTS  which  is  the  input  time  series  data. 

POINTS  is  the  number  of  input  points. 

FCST  is  a real  array  of  size  POINTS  which  is  the  time  series  forecast  for  periods  2 

to  POINTS  +1. 

ALPHA  is  the  weighting  factor  which  determines  the  amount  of  reliance  placed 
upon  older  data.  The  selection  of  a large  ALPHA  causes  the  system  to 
respond  rapidly  to  differences  between  the  actual  and  forecast  data. 

OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 

The  absolute  value  of  ALPHA  must  be  less  than  or  equal  to  one.  If  the  value  of  ALPHA  is 
negative,  the  forecast  will  be  trend  adjusted. 

Note  that  this  routine  represents  one  of  the  basic  tools  for  time  series  analysis.  The  user 
is  urged  to  consult  a qualified  reference  on  time  series  analysis  for  a complete 
description  of  the  methods  involved  in  this  routine.  Other  techniques,  such  as  base 
series  correction,  cyclic  analysis,  and  higher  order  smoothing  are  necessary  to 
synthesize  a meaningful,  cornposit  forecast.  The  expoential  smoothing  of  the  input  data 
is  returned  for  periods  2...N+ 1 where  N is  the  number  of  input  time  series  periods.  The 
first  forecast  period  which  is  to  be  considered  accurate  must  be  determined  by  the  user. 

Programming  Notes: 
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Subroutine  UVIEW 


3D 


FUNCTION: 

This  routine  defines  the  position  of  the  viewer  in  relation  to  the  environment  and 
specifies  his  direction  of  view. 

CALLING  SEQUENCE: 

CALL  UVIEW(XVIEW,YVIEW,ZVIEW,XSITE,YSITE,ZSITE) 

Where 

XVIEW,YVIEW,ZVIEW  is  the  location  of  the  viewing  position  in  current  units. 

XSITE, YSITE,ZSITE  is  the  location  of  the  site  at  which  the  viewer  is  looking  in 

current  units. 

OPTIONS: 

Pen  Coordinate  Options:  seeU3PEN 

Viewing  Attitude:  UPSETCATTITUDE’, angle) 

Up  Direction:  ■ZPOSITIVE',  'YPOSITIVE',  'XPOSITIVE'  ‘ZNEGATIVE’, 

‘YNEGATIVE’,  ^NEGATIVE' 

COMMENTS: 

UVIEW  sets  the  viewing  position  and  direction  in  current  units.  Changing  the  current 
unit  will  not  effect  the  viewing  position  and  direction.  The  attitude  of  the  view  is  a 
rotation  around  the  viewing  axis  (a  line  drawn  from  the  view  point  to  the  view  site).  It  is 
normally  set  so  that  the  view  will  be  horizontal.  This  is  the  default  value 
(UPSETCATTITUDE', 0.)). 

Up  Direction: 

In  creating  3-D  systems,  it  has  become  standard  to  consider  the  positive  Z axis  as 
representing  the  direction  'up'.  This  is  the  default  chosen  by  GCS.  Should  the  user 
desire,  however,  he  may  specify  that  any  other  axis  represents  the  'up'  direction.  The 
'up'  direction  refers  to  the  attitude  of  the  viewer  in  relationship  to  the  coordinate  system 
of  the  environment. 

Programming  Notes: 
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CALL  ATTACH  <2. 7/TEK3DEM0/SAVE* 7,3.0.IST. 3 
pai  » USTART 

CALL  UPSET  < 7 TERMINATOR7, 7<73 

CALL  U6ET  C 7 PERCENT  UNITS 7 3 

CALL  USET  C 7 REFERENCE  COORDINATE  SYSTEM7 3 

CALL  UPSET  C 'LIBRARY7, 1.3 

CALL  UTILTY  <7LOAD7.2.3 

CALL  USET  < 7 VXEWSITE7  3 

CALL  UYUPRT  <168.3 

CALL  UWINDO  <-108.,  IM..-IN.,  180.3 
CALL  UDAREA  <0. ,50. ,0. . 78. 3 
CALL  UVIEW  <-40.. 208. .70. .-20. .20. .0.3 
CALL  VILLAS 

CALL  UVIEW  <-70.,-l68..50.,O.,O.,  10.3 

CALL  UDAREA  <60..  ISO. ,0., 70.3 

CALL  VILLAS 

CALL  UEND 

STOP 

END 

SUBROUTINE  VILLAS 
CALL  USET  <7XYZ  73 
CALL  USET  C7SYSTEMAXIS73 


CALL  USET  C'REFERENCEAXZS7  3 
CALL  U3CALL  C-60.,28.,0.,  I .,  I , 
CALL  U9CALL  C24..-I0..0., | ., | . 
CALL  U3CALL  <70. . 70. .0.. 0.7.0. 
CALL  U3CALL  <O.,0.,0., I ., I ., t . 
RETURN 
END 


,1 .,8O.,0.,0.,7CHURCH73 
.1 ..00.. -00., 0.. 'SCHOOL7 3 
7. 0.7, 0..0..S.. 'PIZZA7 3 
, O..O..0., 7 ROAD  73 


Subroutine  UVWPLN 

FUNCTION: 


3D 


? 


This  routine  specifies  the  location  of  the  view  (projection)  plane  along  the  viewing 
vector 

CALLING  SEQUENCE: 

CALL  UVWPLN  (DISTAN) 


Where 

DISTAN  is  the  distance  in  current  virtual  units  from  the  view  plane  measurement 
base  to  the  view  plane  as  measured  along  the  viewing  vector. 

OPTIONS  which  may  apply: 

View  Plane  Measurement  Base:  ‘VIEWPOINT’,  ‘SITEPOINT’ 

COMMENTS: 

Positive  direction  of  measurement  is  from  the  view  point  (location  of  the  viewer)  to  the 
view  site  (location  of  the  viewed  object).  The  view  plane  may  not  be  located  such  that  the 
view  point  is  between  the  view  plane  and  the  view  site.  It  can  also  not  be  located  at  the 
view  point. 

Specification  of  the  view  plane  will  effect  the  amount  of  perspective  which  will  result 
when  generating  the  image.  The  closer  the  view  (projection)  plane  to  the  view  point  and 
the  wider  (higher)  the  window  on  this  plane,  the  more  pronounced  will  be  the 
perspective.  This  routine  specifies  the  location  of  the  view  plane  relative  to  either  the 
view  point  or  the  view  site.  If  ‘VIEWPOINT’  mode  is  specified,  the  view  plane  distance  is 
measured  from  the  site  point.  All  measurements  are  along  the  viewing  vector. 
‘SITEPOINT’  is  the  default  mode. 

The  view  plane  specification  indicates  the  plane  on  which  the  window  width  and  height 
are  measured  (see  U3WNDO). 


Programming  Notes: 


// 
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ATTACH  <2. '/TEKSDENO/SAVE#  ,3.S#IST. > 
USTART 

UPSET  C' TERMINATOR 7<y> 

USET  C' PERCENT  UNITS O 

U6ET  PREFERENCE  COORDINATE  SYSTEM' 3 

UPSET  C'UBRARY',1.3 

1/m.TY  C 'LOAD'. 2. 3 

USET  C'VIEWSITE'3 

UVWPLN  CIC3.3 

uuxndo  c-iw.,  iss.,-taa..  tn.) 

UDAREA  <8. ,68. ,S., 78. 3 

UVZEW  C-4a..20a..7S..-20..2S..a.> 

VILLAS 

UVMPLN  CSSS. 3 

UDAREA  CSS., 188., 8. ,78. 3 

VILLAS 


SUBROUTINE  VILLAS 
CALL  USET  C'XYI  O 
CALL  USET  C ' SYSTEMAXXS ' 3 

CALL  USET  C'REFERENCEAXXS'3  

CALL  U9CALL  C-S8.,28.,8.,  I I I ..SS-.S^S.,  'CHURCH' 3 
CALL  U9CALL  <24.,-t8.,8..  t .,  I ..  I .,a8.,-88.,a.,'SCH00L 
CALL  U3CALL  C7a..7a..a.,8.7.8.7.a.7.a.,a..a..'PIZZA'3 
CALL  U9CALL  CS.,8.,8.,  I .,  I .,  t 'ROAD  '3 
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Subroutine  UWAIT 
FUNCTION: 


Interactive 


To  wait  a number  of  seconds. 

CALLING  SEQUENCE: 

CALL  UWAIT(SECNDS) 

Where 

SECNDS  la  a real  number  that  indicates  the  number  of  seconds. 

OPTIONS  which  may  apply: 

Communication  line  speed.  UPSET  ( SPEEP'.SECONDS) 

COMMENTS: 

The  delay  may  not  be  precisely  measured.  If  the  device  is  a batch  device,  no  delay  will 
occur. 
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Subroutine  UWHERE 


FUNCTION: 

This  routine  places  in  the  arguments  the  coordinates  of  the  current  beam/pen  position  in 
current  absolute  user  units 

CALLING  SEQUENCE: 

CALL  UWHERE  (X,Y) 

Where 

X will  be  on  return  from  this  routine,  the  X-  or  RADIUS  coordinate  of  the 

current  beamy  pen  position  in  current  absolute  user  units. 

Y will  be  on  return  from  this  routine,  the  Y-  or  THETA  coordinate  of  the 

current  beam/pen  position  in  current  absolute  user  units. 

OPTIONS  which  may  apply: 

Pan  Coordinate  options  • see  UPEN 

COMMENTS: 

This  routine  always  returns  the  coordinates  of  the  current  beam  position  In  ABSOLUTE 
units  since  RELATIVE  units  are  always  (0.,0.).  A handy  use  for  this  routine  is  to  obtain 
the  coordinates  of  the  beam/pen  in  diffeient  units  from  those  used  to  move  the  beam/ 
pen  to  where  it  is  located. 


Programming  Notes: 


Subroutine  UWINDO 
FUNCTION: 

This  routine  defines  the  boundsries  of  the  user  window  into  virtusl  space. 

CALLING  SEQUENCE: 

CALL  UWINDO  (XMIN.XMAX.YMIN.YMAX) 

Where 


XMIN  is  the  left-most  window  boundary  in  current  VIRTUAL  RECTANGULAR 

units. 

XMAX  is  the  right-most  window  boundary  in  current  VIRTUAL  RECTANGULAR 
units. 

YMIN  is  the  bottom-most  boundary  in  current  VIRTUAL  RECTANGULAR  units. 

YMAX  is  the  top-most  window  boundary  in  current  VIRTUAL  RECTANGULAR 
units. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  concept  of  windowing  into  a virtual  space  expands  greatly  the  capabilities  of  the 
user.  It  is  this  ability  which  allows  him  to  work  in  his  own  units,  plotting  in  a space  which 
theoretically  exists  from  minus  infinity  (largest  negative  number  of  the  computer)  to  plus 
infinity  (largest  positive  number  of  the  computer)  in  both  the  X and  Y directions,  but 
observing  only  that  subset  of  the  vast  space  that  is  of  interest  to  him.  The  user  defines 
the  rectangular  area  of  interest  by  calling  this  routine  (UWINDO).  The  user  can  also 
specify  a corresponding  rectangle  on  the  physical  plotting  surface  where  any  output 
visible  in  the  virtual  user  window  will  appear.  This  area  is  called  the  user  display  area 
and  may  be  specified  by  calling  UDAREA  The  output  in  virtual  space  is  mapped  on-to- 
one  onto  the  user  display  area  with  resulting  distortion  should  the  ratio  of  the  window  to 
the  display  area  in  the  X direction  not  be  equal  to  that  of  the  Y direction.  Multiple  user 
windows  may  be  superimposed  on  one  user  display  area  by  changing  the  user  window 
without  changing  the  user  display  area.  Conversely  multiple  displays  may  be  created 
from  one  area  of  virtual  space  by  changing  the  user  display  area  without  changing  the 
user  window. 

Subroutine  UWINDO  is  used  to  set  the  user  window  boundaries  at  the  viewplane.  An 
error  condition  will  occur  (see  Error  Appendix)  and  the  previous  setting  will  not  be 
modified  if  the  maximum  boundary  is  specified  less  than  the  minimum  boundary. 

In  a two  dimension  environment,  the  viewplane  is  set  to  be  the  default  Z value. 
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Subroutine  UWLOOK  3D 

FUNCTION: 

This  routine  adjusts  both  the  virtual  window  and  the  user  display  area  to  cover  the 
portion  of  virtual  space  specified  as  input  arguments. 

CALLING  SEQUENCE: 

CALL  UWLOOK (XMIN.XMAX.YMIN.YMAX) 


is  the  minimum  X-boundary  of  the  desired  new  window 
is  the  maximum  X-boundary  of  the  desired  new  window 
is  the  minimum  Y-boundary  of  the  desired  new  window 
is  the  maximum  Y-boundary  of  the  desired  new  window 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

Should  the  required  modification  require  extending  the  user  display  area  beyond  the 
display  surface  boundary,  an  error  condition  will  be  indicated  and  no  modification  will 
take  place. 

Programming  Notes: 


Where 

XMIN 

XMAX 

YMIN 

YMAX 
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C ALL  ATTACH  <2, ' /TEJC3PEN0/SA  VE / 3,  S, 1ST, > 
r»ti  i USTARt 

CALL  UPSET  C' TERMINATOR',  'CO 
CALL  UPSET  C' LIBRARY', I .> 

CALL  UTILTY  C'LOA 0',t.> 

CALL  IMZNDO  C~IM.,a.,a.,  I SS.? 

CALL  UDAREA  C9.S,S. 6,4.6,7.57 

call  uvxeu  aaa.,-2sa.,sa.,a., «aa.,a.> 
call  uwlook  c-iaa.,-ia., ia., taa.) 

CALL  UOUTLN 
r ai  i VZLLAO 

call  uwlook  c-taa.,-ia.,-iaa.,-ia.7 

CALL  VJOUTLN 
CALL  VZLLAO 
CALL  UEND 


END 

SUBROUTINE  VZLLAO 
CALL  USCT  C'XVZ  '7 
CALL  USET  C'SYSTENAXZS'7 
ffAi  i USET  < 'RErriyNcr AXTS  ' ? 

CALL  U3CALL  C-58..  29. . 8. . I ..  I ..  I .,08.,0.,0..  'CHURCH'7 
CALL  U9CALL  <24.  ,-18. ,9.,  I . , I . , 1 . ,Oa.  ,-08., a. , ' SCHOOL O 
CALL  U9CALL  <79.,79.,a.,a.7,9.7,9.7,a.,a.,9., 'PXZZA'7 
CALL  U9CALL  C0.,0.,a.,l.,l.,l.,8.,a.,a., 'ROAD  '7 
RETURN 


Subroutine  UWRITE 
FUNCTION: 

This  subroutine  enables  the  user  to  print  information  at  the  pen  position  specified.  The 
five  (5)  options  available  to  the  user  are:  TEXT',  ‘REALNUMBER’,  ‘INTEGERNUMBER’, 
‘ XYZCOORDINATES ’,  and  ‘XYCOORDINATES’.  The  output  characters  will  be  either 
hardware  or  software  depending  on  the  current  setting  in  the  Graphics  Status  Area. 
Margining  will  occur  with  hardware  characte  ind  windowing  will  occur  with  software 
characters.  The  beam  wilt  be  restored  to  its  ition  on  entry  to  UWRITE. 

CALLING  SEQUENCE: 

CALL  UWRITE  (X,Y,DATA) 

Where 

X is  the  X-  or  RADIUS  coordinate  of  the  lower  left  corner  of  the  first  character 

of  the  output. 

Y is  the  Y-  or  THETA  coordinate  of  the  lower  left  comer  of  the  first  character 

of  the  output. 

DATA  is  a single  variable  or  array  containing  either  real  numbers  or  a GCS  text 
string.  The  size  of  DATA  is  variable;  it  is  a single  variable  if 
'REALNUMBER'  or  'INTEGERNUMBER'  is  specified;  it  is  a two  word  array 
if  'XYCOORDINATES'  is  specified;  and  it  may  be  any  length  if  'TEXT'  is 
specified. 

OPTIONS  which  may  apply: 

Alphanumeric  Output  Options:  ‘REALNUMBER*,  ‘INTEGERNUMBER’, 

‘XYCOORDINATES’, ‘TEXT’,  XYZCOORDINATES' 

Numeric  Precision  Option:  UPSET  option  ‘PRECISION’ 

Character  Type  Options:  ‘HARDWARE’  ‘SOFTWARE’ 

Character  Size  Options: 

for ‘HARDWARE’  - SMALL’,  MEDIUM  , ‘LARGE’, ‘EXTRALARGE’ 
for ‘SOFTWARE’  - UPSET  options  HORIZONTAL', ‘VERTICAL’ 

Alternate  Character  Format:  ’GOTHIC',  ‘ITALIC’ 

Margin  Boundaries:  (see  UMARGN) 

Window  Boundaries:  (see  UWiNDO) 

Coordinate  System  Options  (see  UPEN  and  UCOSYS) 


COMMENTS: 

UWRITE  is  functionally  equivalent  to  UPRINT  except  that  the  beam  is  restored  to  the 
position  it  occupied  upon  entry  to  UWRITE.  For  a complete  description  of  all  the  options 
available  using  either  UWRITE  or  UPRINT,  see  UPRINT. 


198 


■ 
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In  three  dimensional  qpplications,  the  text  is  positioned  at  the  point  specified  by 
X.Y.ZVALUE,  where  ZVALUE  is  established  by  a call  to  UPSET  with  the  ZVALUE’  option 
For  two  dimensional  applications,  this  corresponds  to  output  being  placed  on  the  plane 
of  the  graphics  display  device. 

Programming  Notaa: 


TrtES  IS  A SAMPLE  LIME  OF  OUTPUT  TEXT,  ' 3 


Subroutine  UWRIT1 
FUNCTION: 


I 


This  routine  displays  the  data  provided  at  the  current  beam  position  in  the  format 
currently  specified  in  either  hardware  or  software  characters  subject  to  the  one-time 
setting  of  the  USET  option  furnished  which  only  applies  during  the  execution  of  this 
subroutine.  Upon  return  the  beam  is  positioned  at  the  location  it  held  upon  enterina  ths 
subroutine. 

CALLING  SEQUENCE: 

CALL  UWRIT1  (DATA, OPTION) 


Where 


DATA 


is  a single  variable  or  array  containing  either  real  numbers  or  a GCS  text 
string.  the  size  of  DATA  is  variable:  it  is  a single  variable  if 
REALNUMBER'  or  INTEGERNUMBER'  is  specified;  it  is  a two-word 
array  if  XYCOORDINATES'  is  specified  it  is  a three  word  array  if 
'XYZCOORDINATES'  is  specified;  and  it  may  be  any  length  if  'TEXT'  is 
specified. 


OPTION  is  a Hollerith  string  variable  or  literal  defining  the  USET  option  to  apply 
during  the  execution  of  this  subroutine. 

OPTIONS  which  may  apply: 

Same  as  those  for  UWRITE  except  that  coordinate  system  options  do  not  apply. 

COMMENTS: 


E».UWRIT  1 ls  e£lulvalent  to  the  sequence  of  calling  USET  with  OPTION,  calling 
UWRITE  at  the  current  beam  position  with  DATA,  and  then  calling  USET  with  the 
appropriate  options  which  would  restore  the  status  changed  by  OPTION.  UWRIT1  is 
convenient  for  producing  alphanumeric  information  at  points  being  plotted: 

Programming  Notes: 
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ff  ai  i ustart 

CAU-  UPSET  C 'TERMINATOR'. 
rAi  i UASPCT  Cl  .) 

CAU.  USET  C' SOFTWARE  CHARACTERS') 

CAU-  UPSET  C 'HORIZONTAL  SIZE', 2. 6) 

CAU-  UPSET  C' VERTICAL  SIZE', 3. E) 

CALL  UNOVE  C60..S0.) 

PO  10  I - l,  8 

CALL  UR0TAT  C4S.»CFL0ATCI— I ))) 

IS  CALL  UWRITI  C'  CIRCULAR  P4ESSA0E, '. 'TEXT') 
CALL  UENP 
STOP 
END 
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Subroutine  UZWNDO 

FUNCTION: 

This  routine  specifies  the  hither  and  yon  boundary  planes  of  the  user  window  without 
altering  the  currently  specified  X and  Y window  boundaries. 

CALLING  SEQUENCE: 


CALL  UZWNDO(ZMIN.ZMAX) 


Where 

ZMIN  is  the  hither  or  minimum  Z-boundary  of  the  new  window. 

ZMAX  is  the  yon  or  maximum  Z-boundary  of  the  new  window. 

OPTIONS  which  may  apply: 

Z axis  clipping:  ‘NOZCLIPPING',  'ZCLIPPING’ 

COMMENTS: 

A new  window  boundary  specification  is  set  in  which  the  new  X and  Y boundaries  are  the 
same  as  the  old  X and  Y boundaries  and  the  new  Z boundaries  are  obtained  from  the 
input  parameters.  If  ZMAX  LT.  ZMIN,  an  error  is  generated  and  no  change  is  made  in  the 
window.  Clipping  on  the  Z boundaries  will  only  occur  if  'ZCLIPPING'  is  specified  (see 


Programming  Notes: 
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Subroutine  U3AREA 


3D 


FUNCTION: 

This  routine  specifies  the  screen  location  within  which  the  contents  of  the  user  window 
(U3WNDO)  will  be  displayed. 

CALLING  SEQUENCE: 

CALL  U3AREA(XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX) 

Where 

XMIN  is  the  minimum  X boundary  in  current  device  units  of  the  new  user  display 

area 

XMAX  is  the  maximum  X boundary  in  current  device  units  of  the  new  user  display 
area 

YMIN  is  the  minimum  Y boundary  in  current  device  units  of  the  new  user  display 

area 

YM  AX  is  the  maximum  Y boundary  in  current  device  units  of  the  new  user  display 
area 

ZMIN  is  the  minimum  Z boundary  in  current  device  units  of  the  new  user  display 

area 

ZMAX  is  the  minimum  Z boundary  in  current  device  units  of  the  new  user  display 
area 

OPTIONS  which  may  apply: 

Device  Units:  ‘INCHES’,  ‘CENTIMETERS’,  ‘PERCENT  UNITS’,  ‘RASTER’,  ‘FONT’, 
‘SPECIFICATIONS' 

COMMENTS: 

This  routine  works  in  close  conjunction  with  U3WND0  to  define  the  mapping  to  take 
place  between  virtual  space  and  device  space.  UDAREA  defines  a rectangular 
parallelipiped  which  is  a subset  of  the  total  device  space.  The  six-sided  viewing  solid 
defined  by  U3WND0  and  the  current  projection  mode  (perspective  or  orthogonal)  is 
mapped  into  this  parallelopiped. 

The  units  used  to  describe  the  desired  region  of  the  display  area  are  device,  rectangular, 
absolute  units.  Any  of  the  device  units  may  be  used  (e.g.,  ’INCHES',  ‘CENTIMETERS’, 
etc.).  If  any  of  the  maximum  boundary  parameters  specifies  a boundary  less  than  or 
equal  to  the  minimum  boundary  parameters,  an  error  is  generated  and  the  old  U3AREA 
specification  is  retained. 

If  a display-device  with  only  a 2-D  address  space  is  being  utilized,  the  Z values  are 
checked  for  validity  but  are  not  used.  The  projection  of  the  U3WNDO  onto  the  view  plane 
will  then  be  mapped  into  the  U3AREA  X and  Y space  of  the  screen  plane.  The  U3AREA  is 
frequently  referred  to  as  the  ’viewport'  in  the  literature. 

Programming  Notes: 
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Subroutine  U3AXIS  3D 

FUNCTION: 

This  routine  creates  a set  of  coordinate  axes  in  3-space. 

CALLING  SEQUENCE: 

CALL  U3AXIS(XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX) 

Where 

XMIN  is  the  minimum  value  of  the  X axis 

XMAX  is  the  maximum  value  of  the  X axis 

YMIN  is  the  minimum  value  of  the  Y axis 

YMAX  is  the  maximum  value  of  the  Y axis 

ZMIN  is  the  minimum  value  of  the  Z axis 

ZMAX  is  the  maximum  value  of  the  Z axis 


OPTIONS  which  may  apply: 

Origin  Inclusion  Options:  ‘ORIGIN',  'NOORIGIN',  'PENORIGIN' 

View  Adjustment  Options:  ‘XYVIEW',  ‘XZVIEW,  ‘YZVIEW’,  'XYZVIEW' 

Grid  Type  Specifications:  UPSETCGRID’, value) 

Axis  Existence  Options:  'NOAXES’,  'XAXIS',  'YAXIS',  'ZAXIS',  XYAXES',  'XZAXES', 

‘YAXES’,  'XYZAXES' 

Axis  Scaling  Options:  'AUTOSCALE',  ‘FULLSCALE’,  OWNSCALE’ 

Coordinate  Type  Options.  'RECTANGULAR'  POLAR',  'CYLINDRICAL’,  'SPHERICAL' 

Logarithmic  Transforms:  'NOLOG'.  XLOG'.  'YLOG',  ZLOG',  'XYLOG',  'XZLOG', 

•YZLOG’, 'LOGARITHMIC' 

Logarithmic  Application  Time:  LOGSYSTEM',  LOGUSER',  ‘LOGORIGINAL’ 
Logarithm  Base:  UPSET  BASE',  'XBASE',  'YBASE',  ‘ZBASE’ 

COMMENTS: 


> 


This  routine  is  designed  to  supercede  the  2-D  URAXIS  routine. 


U3AXIS  performs  all  operations  in  virtual  space.  This  means  that  all  axes  and  labels  will 
be  clipped  if  they  are  outside  of  the  viewing  pyramid.  Which  viewing  pyramid  will  be 
used  will  depend  upon  the  View  Adjustment  Options.  If  'XYZVIEW'  is  specified,  the 
current  view  will  be  used.  This  is  the  default.  If  ‘XYVIEW’,  'XZVIEW',  or  'YZVIEW'  is 
specified,  a viewing  vector  is  defined  which  is  at  positive  150.  along  the  axis 
perpendicular  to  the  designated  plane.  The  view  site  is  defined  to  be  at  (0..0..0.)  in 
current  units.  Note  that  UWINDO/UDAREA  modifications  will  only  occur  if  'XYZVIEW'  is 
not  specified. 

Scaling  options  allow  the  user  to  select  the  intervals  or  allow  U3AXIS  to  choose  them. 
The  Origin  Inclusion  Option  allows  the  user  to  deselect  the  forced  origin  of  the 
'AUTOSCALE'  and  ‘FULLSCALE’  options.  The  default,  'ORIGIN',  forces  an  origin  for 
these  options.  'NOORIGIN'  will  now  allow  the  natural  range  of  numbers  of  the  U3AXIS 
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input  arguments  to  determine  the  axis  range.  Note  that  under  the  OWNSCALE'  option, 
origins  are  never  forced.  Use  of  the  ‘PENORIGIN’  option  allows  the  user  to  force  the 
current  pen  position  to  be  included  in  the  axis  range. 

Grids  will  only  be  generated  in  the  view  adjustment  plane  (if  specified)  or  the  X-Y  plane  if 
‘XYZVIEW’  is  specified.  The  type  of  line  to  be  used  can  be  user  selected  by  calling 
UPSETCGRID', value)  where  value  is  either  0.  or  a valid  dash  specification.  If  the  default 
value  of  0.  is  specified,  a solid  line  will  be  used  to  create  the  grids. 


Programming  Notes: 


0 2 4 6 6 

13  5 7 


ni  I USTART 

CALL  UVINDO  C-8.,8.,-8.,8.5 
CALL  UVIEW  C30.,30.,39.,2.,2.,9.> 

CALL  UPSET  C'CRXD  SPECIFICATION', 34. > 
nAi  i USET  C ' GRID AXES ' > 

CALL  USET  C' SOFTWARE  CHARACTERS' > 

CALL  UPSET  C' HORIZONTAL', .35 
CALL  UPSET  C' VERTICAL', .5> 

CALL  UPSET  C 'LABEL', 90.) 

CALL  USET  C'XYVIEW'5 

CALL  U3AXIS  C0..8.,0..8.,0..S.> 

CALL  UEND 

STOP 

END 


Subroutine  U3CALL 


3D 


FUNCTION: 

This  routine  invokes  an  already  constructed  graphics  data  structure.  The  requested 
coordinate  system  transformation  is  established, then  each  element  of  the  structure  is 
executed. 

CALLING  SEQUENCE: 

CALL  U3CALL(X,Y>Z,SX,SY,SZ,RX,RY,RZ,NAME) 

Where 

X,Y,Z  are  the  coordinates  of  the  origin  of  the  structure  coordinate  system  in 
current  units. 

SX,SY,SZ  are  the  scale  factors  along  the  axes  respectively. 

RX,RY,RZ  are  the  rotation  angles  about  the  respective  axes. 

NAME  is  a Hollerith  string  containing  the  eight-character  names  of  the  data 
structure  to  be  invoked.  This  structure  must  be  defined  in  the  current 
'LIBRARY'  file. 

COMMENTS: 

The  current  coordinate  system  is  saved  prior  to  applying  the  structure  coordinate 
transformation.  Up  to  three  levels  of  recursive  calls  can  be  handled. 

Programming  Notes: 


CALL  ATTACH  C«, '/TEK9DEMO/SAVE; 3. 8. 1ST. 3 
pai  i USTART 

CALL  UPSET  C' LIBRARY', t .3 
CALL  UTILTY  C 'LOAD' .8.5 
CALL  UPSET  C' TERMINATOR'. '<'3 
CALL  USET  C ' VXEUDISTANCE ' 3 
CALL  UWPRT  CI68.3 

CALL  UWXNDO  C-180. , ISO . . -1 00. . 100. 3 

CALL  UVIEW  <-48. .288. .78. ,-28. .28. .8. 3 

CALL  VZLLAO 

CALL  UEND 

STOP 

END 

SUBROUTINE  VILLAS 
CALL  USET  C'XYZ  '5 
CALL  USET  C ' SYSTEMAXXS ' 3 
CALL  USET  C ' REFERENCEAXIS ' 3 
pai  i USET  C' BLACK' 3 

CALL  U3CALL  C— C8 . ,28. ,8. , I . . I . . t . .OS..0..S.. 'CHURCH') 
CALL  USET  C 'RED  '3 

CALL  U3CALL  <24. ,-IP. . 8 . . I . . I . , 1 . . 98.  -«»8  t»  'cr>ipp«'> 

PAI  | IISF1  . *»l  U»  ' 

. 4i  i w*.r  ii  .*  a • 3 
. 41  i U3i:i  . c t . . K 
n . i f i 
END 
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Subroutine  U3CSYS 


3D 


FUNCTION: 

This  routine  composes  a new  user  coordinate  system  based  on  the  current  reference 
coordinate  system  using  the  input  arguments  for  translation,  scaling,  and  rotation 
operations. 

CALLING  SEQUENCE: 

CALL  U3CSYS(X,Y,Z.SX,SY,SZ,RX,RY,RZ) 

Where 

X,Y,Z  the  coordinates  of  the  new  origin  in  units  of  the  old  coordinate  system. 

SX,SY,SZ  are  the  multiplicative  scale  factors  along  each  of  the  axes. 

RX,RY,RZ  indicate  the  amount  of  rotation  around  each  of  the  axes  in  current  angular 
units. 

OPTIONS: 

(Only  those  which  differ  from  SUBROUTINE  UCOSYS  are  listed) 

Rotation  Application  Order:  'XYZ',  'XZY\  ZXY',  ZYX',  YXZ’,  YZX’. 

COMMENTS: 

The  composition  of  user  coordinate  systems  is  a powerful  tool  for  use  in  describing 
problem  pictures  in  their  own  environment.  A full  description  of  the  use  of  this  facility  is 
available  under  UCOSYS  and  a tutorial  is  available  in  the  primer.  In  using  this  facility  in 
three-dimensions,  only  one  additional  requirement  is  imposed  on  the  user:  specification 
of  the  order  in  which  the  rotations  will  occur.  This  is  a result  of  the  non- 
commutativeness  of  the  rotation  operation.  To  set  the  order,  the  user  merely  specifies, 
as  a USET  option,  the  three  characters  which  designate  the  axes  in  the  order  in  which  he 
wishes  the  rotations  to  be  applied.  The  default  setting  is  CALL  USET('ZYX'). 

The  positive  direction  of  rotation  is  counterclockwise  around  the  axis  of  rotation  when 
viewed  from  a position  on  the  axis  of  rotation  looking  in  the  negative  direction. 

Programming  Notes: 
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Subroutine  U3DRA  W 


FUNCTION: 


3D 


This  routine  draws  a solid  line  vector  in  three-space  from  the  current  pen  position  to  the 
position  specified  by  the  Input  arguments. 


CALLING  SEQUENCE: 


Where 


CALL  U3DRAW(X,Y,Z) 


X,Y,Z  are  the  coordinates  of  the  end  point  of  the  line  in  current  units. 

OPTIONS: 

Pen  Coordinate  Options  (see  U3PEN) 

COMMENTS: 

This  routine  is  equivalent  to  using  U3PEN  with  line  option  LNULL’.  The  current  setting 
of  the  line  option  has  no  effect  on  this  routine. 

Programming  Notes: 
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ZXA  Sun  Sywbol 


DIMENSION  XCI0S,YCI0S 

data  x/2a.. 20., a. „ a.,  a.. a., -2a.. -20.. -20.. -20. .a., a.. a.. a. 

^ 20 • 20 • / 

DATA  Y/a!,0.'20.,20..(20.i,20.,,e.,0.,e.,0.,,-20.,-20.,-20.,-20. 
a ,a.,a./ 

r?Ai  i USTART 

CALL  UPSET  C ' TERMINATOR'  , ' j ' S 
CALL  UCOSYS  C60 ..50.,l.,l.,a.S 
CALL  USET  C' POLAR'S 
CALL  UMOVE  (I7.E.8.) 

DO  18  I - I.  120 
10  CALL  UDRAW  C 1 7 . 5,  FLOAT CIS  »9 . S 
THETA  - 1 1 .5 
DO  2a  I - I.  10 
CALL  USET  C' POLAR'S 
CALL  USET  C 'ABSOLUTE' 5 
CALL  UMOVE  CI7.S, THETAS 
CALL  USET  C' RECTANGULAR' 5 
CALL  USET  < 'RELATIVE'S 
CALL  UDRAW  CXCIS,YCISS 
20  THETA  - II .26  ♦ 22. S » FLOATCIS 
f?Ai  i USET  C'LAROE'S 
CALL  USET  C * C JUSTIFICATION  * S 
CALL  USET  C' ABSOLUTE'S 

CALL  UPRINT  <0..~46., 'ZIA  S> UN  <S>YMBOL; 'S 

CALL  UEND 

STOP 

END 
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Subroutine  U3GRIN 
FUNCTION: 


This  routine  returns  the  3-D  locator  value  in  current  units  as  indicated  by  the  user. 

CALLING  SEQUENCE: 

CALL  U3GRIN  (X,Y,Z,ICHAR) 

is  the  X or  radius  component  of  the  coordinates  returned 

is  the  Y or  theta  component  of  the  coordinates  returned 

is  the  Z or  rho  component  of  the  coordinates  returned 

is  a Hollerith  character  returned  as  chosen  by  the  user  or  derived  from  the 
actions  of  graphics  input  device 

OPTIONS  which  may  apply: 

All  coordinate  Options:  (see  UPEN/U3PEN) 

Default  ZVALUE:  'UPSET',  ’ZVALUE' 

Graphics  INput  Device:  'CURSOR',  'JOYSTICK',  'LIGHTPEN',  TABLET',  KEYBOARD' 

'FUNCTION  KEY',  MOUSE',  ’TRACKBALL' 

COMMENTS: 

If  only  a 2-D  locator  is  available,  the  third  component  will  be  obtained  from  the  current  Z- 
VALUE  setting 

N 


Where 

X 

Y 

Z 

ICHAR 
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Subroutine  U3IMAG 


3D 


FUNCTION: 

This  routine  applies  a general  three-din' ensional  image  transformation  to  the  indicated 

segment/frame. 

CALLING  SEQUENCE: 

CALL  U3IMAG  (X,Y,Z,SX,SY,SZ,RX,RY,RZ,SEGID) 


is  the  new  position  of  the  segment  in  current  3D  device  units. 

is  the  scale  factor  to  be  applied  along  each  axis  of  the  display  surface. 

in  the  rotation  in  current  angular  units  to  be  applied  arund  each  axis  of  the 
display  surface. 

is  the  identifier  of  a “retained"  segment/frame  which  was  UOPENed  for 
general  3D  image  transformation. 

OPTIONS  which  may  apply: 

Device  Units:  ‘INCHES'.  'CENTIMETERS',  ‘RASTERUNITS’,  ‘FONTUNITS’, 
‘SPECIFICATION  UNITS’,  'PERCENT  UNITS' 

Specification  Unit  Size  (UPSET):  'SPECIFICATION  UNITS',  ‘/SPECIFICATION  UNITS', 

‘YSPECIFICATION  UNITS',  ^SPECIFICATION  UNITS' 

Angular  Units:  ‘DEGREES',  'RADIANS',  ‘PIRADIANS’,  ‘GRADS’,  ‘MILS' 

Segment  Identifier  Mode:  'FNAME',  'FNUMBER',  'SNAME',  'SNUMBER' 

COMMENTS: 

The  image  transformation  is  applied  in  the  order  X-rotation,  Y-ro»ation,  Z-rotation, 
scaling,  and  translation  If  the  resultant  image  should  exceed  the  display  surface 
address  space,  the  result  is  undetermined 

Image  transformations  are  only  applied  if  supported  on  the  current  display  surface. 
Requests  for  image  transformation  will  be  ignored  if  the  display  device  does  not  support 
this  facility. 

Programming  Notes: 


Where 

X,Y,Z 

SX,SY,SZ 

RX,RY,RZ 

SEGID 
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Subroutine  U3UNE  30 

FUNCTION: 

This  routine  creates  a line  in  3-space  by  connecting  an  array  of  coordinates  with  lines 
drawn  with  the  current  line  option. 

CALLING  SEQUENCE: 

CALL  U3LINE(X,Y,Z,PTS) 

Where 

X is  an  array  of  length  PTS  containing  the  X-components  of  the  coordinates  of 

the  points  to  be  connected. 

Y is  an  array  of  length  PTS  containing  the  Y-components  of  the  coordinates  of 

the  points  to  be  connected. 

Z is  an  array  of  length  PTS  containing  the  Z-components  of  the  coordinates  of 

the  points  to  be  connected. 

PTS  is  a real  variable  which  specifies  the  number  of  points  to  be  connected. 

OPTIONS  which  may  apply: 

All  pen-related  options  (see  U3PEN) 

COMMENTS: 

This  routine  will  move  to  the  first  point  specified  and  then  draw  a line  to  succeeding 
points  until  the  last  point  is  reached.  The  pen  or  beam  will  be  left  at  the  last  point. 

Programming  Note*: 


Subroutine  U3M0VE 

FUNCTION: 


3D 


This  routine  draws  an  invisible  vector  in  three-space  from  the  current  pen  position  to  the 
position  specified  by  the  input  arguments. 

CALLING  SEQUENCE: 

CALL  U3MOVE(X,Y,Z) 

Where 

X,Y,Z  are  the  coordinates  of  the  end  point  of  the  line  in  current  units. 

OPTIONS: 

Pen  Coordinate  Options  (see  U3PEN) 

COMMENTS: 

This  routine  is  equivalent  to  using  U3PEN  with  line  option  'NNULL'.  The  current  setting 
of  line  option  has  no  effect  on  this  routine. 


Programming  Notes: 


Subroutine  U3PEN 

FUNCTION: 


30 


This  routine  draws  a 3D  vector  of  the  type  indicated  by  the  current  line  option  from  the 
current  beam  position  (vector  tail)  to  the  location  specified  by  the  arguments  (vector 
head).  The  current  beam  position  is  updated  to  point  to  the  head  of  the  vector. 

CALLING  SEQUENCE: 

CALL  U3PEN  (X.Y.Z) 

Where 

X is  the  X or  RADIUS  coordinate  component  of  the  head  of  the  vector  in 

current  user  units. 

Y is  the  Y or  THETA  coordinate  component  of  the  head  of  the  vector  in 

current  user  units. 

Z is  the  Z or  RHO  coordinate  component  of  the  head  of  the  vector  in  current 

user  units. 


OPTIONS  which  may  apply: 

Line  Definition  Options 
Line  Options 

Tic  Interval:  UPSETOTICINTERVAL’, value) 

Tic  Mark  Size  Options:  UPSETOTICPLUS’, value)  UPSETOTICMINUS’, value) 
Dash  Specification:  UPSETOSETDASH’, value) 

System  Character  Setting:  UPSETOMARKER', value) 

Character  Description  Options:  see  U3PRNT. 

Symbol/Marker  Selection:  UPSETOMARKER', value)  UPSETOSYMBOL', value) 
Symbol/Marker  Size:  UPSET('SZMARKER’value) 

Coordinate  Output  Type:  '2DC00RDINATES',  '3DC00RDINATES' 

Gapped  Line  Mode:  'GAPPED',  'UNINTERRUPTED' 

Mapping/Projection  Options:  'PERSPECTIVE',  'ORTHOGRAPHIC' 

Pen  Coordinate  Options 

Type:  'RECTANGULAR',  'POLAR',  'CYLINDRICAL',  'SPHERICAL' 

Mode:  ABSOLUTE',  RELATIVE’,  'XRELATIVE',  ‘YRELATIVE’  'ZRELATIVE' 

•XABSOLUTE',  'YABSOLUTE',  'ZABSOLUTE',  'XYRELATIVE' 
'XZRELATIVE',  'YZRELATIVE',  'XYABSOLUTE',  XZABSOLUTE’ 
■YZABSOLUTE’ 


218 


Space: 

Device  Space  Units: 


'VIRTUAL',  DEVICE' 


Specification  Unit  Size: 


Coordinate  System  Selection: 
User  Coordinate  System  Type: 
Logarithmic  T ransforms: 


Logarithm  Application  Time: 
Logarithm  Base: 


PERCENT'.  ‘INCHES'.  CENTIMETERS',  RASTER', 
'FONT'.  'SPECIFICATION' 

UPSETCSPECIFICATION', value) 
UPSETCXSPECIFICATION', value) 
UPSETCYSPECIFICATION'.value) 
UPSETCZSPECIFICATION', value) 

'SYSTEM',  'WORLD',  'USER'.  ’MODELLING’ 

REFERENCE'.  WORKING' 

'LOGARITHMIC',  'NOLOGARITHMS', 
'XLOGARITHMIC',  'YLOGARITHMIC'. 
‘ZLOGARITHMIC,  'X YLOGARITHMIC', 
XZLOGARITHMIC’, 'YZLOGARITHMIC', 
'XYZLOGARITHMIC 

•LOGOBJECT',  'LOGUSER',  'LOGSYSTEM' 

UPSETCBASE'.value),  UPSET (‘XBASE’, value), 
UPSETCYBASE’, value),  UPSETCZBASE’, value) 


'BRIGHT', 'DIM', 'NORMAL', 
UPSETCBRIGHTNESS', value) 

‘THIN’,  'WIDE',  UFSETCWIDTH’, value) 


ATTRIBUTES: 


Intensity 


Line  Width  ‘THIN’,  'WIDE',  UFSETCWIDTH’, value) 

COMMENTS: 

U3PEN  is  the  central  pen/beam  movement  subroutine  of  the  three  dimensional  version 
of  GCS.  Not  only  is  it  called  frequently  by  users  in  creating  graphics  images,  it  is  also 
used  extensively  within  the  higher-level  GCS  routines. 

To  provide  its  power  and  flexibility,  a large  number  of  USET  and  UPSET  options  may 
effect  any  particular  call  to  U3PEN.  However,  this  should  not  be  a concern  for  the  less- 
experienced  user  since  the  defaults  for  these  options  will  produce  the  effect  he  most 
likely  desires,  thus  relieving  him  of  the  requirement  to  set  any  options  but  those  which 
apply  to  this  specific  program. 

These  options  have  been  classified  into  several  major  categories,  each  of  which  will  be 
explained  in  detail.  The  visible  output  from  U3PEN  will  also  be  effected  by  the  viewing 
environment  if  plotting  is  occurring  in  virtual  space.  A full  description  of  the  concepts  of 
the  viewing  environment  can  be  found  under  UVIEW  and  UWINDO. 

Programming  Notes: 


LINE  DEFINITION  OPTIONS: 

This  options  apply  to  only  the  physical  aspects  of  the  lines  created  by  U3PEN.  Attributes 
which  apply  to  both  lines  and  characters  are  described  under  Attributes. 

LINE  OPTIONS: 

The  40  available  line  options  can  be  easily  remembered  if  each  is  divided  into  its  two 
component  parts,  the  line  type  and  the  terminator  type  The  following  table  lists  the 
available  line  and  terminator  types  Any  line  type  may  be  combined  with  any  terminator 
type  to  create  a particular  line  option.  This  is  done  by  prefixing  the  name  of  the 
terminator  with  the  first  character  of  the  name  of  the  line  type  For  example,  to  create  a 
dashed  arrow  the  first  character  of  the  line  type  “dashed"  is  “D".  This  letter  is  affixed  to 
the  word  “arrow”  (the  name  of  the  terminator)  and  the  resulting  USET  line  option  is 
"DARROW”.  A ticked  arrow  would  result  if  a “T"  was  substituted  for  the  "D"  to  yield 
"TARROW”.  Calling  UPEN  with  line  option  "NNULL"  will  yield  identical  results  to  calling 
UMOVE.  Examples  of  the  different  line  options  are  shown  in  Figure  1 


Line  Type 

Null 

Line 

Dashed 

Ticked 

Alpha 


Terminator  Type 

NULL  (absence  of  a terminator) 

POINT 

ARROW 

BACKARROW 

CHARACTER 

SYMBOL 

COORDINATES 


Also  available  for  the  convenience  of  the  user  are  synonyms  for  the  most  frequently 
selected  line  option.  A table  of  these  synonyms  with  their  corresponding  line/terminator 
specifications  is  included  below: 


Synonym 

Line/Terminator  Equivalent 

ALPHALINE 

ANULL 

ARROW 

LARROW 

BACKARROW 

LBACKARROW 

CHARACTER 

NCHARACTER 

DASH 

DNULL 

DIMENSIONLINE 

LDOUBLEARROW 

DOUBLEARROW 

LDOUBLEARROW 

LINE 

LNULL 

MOVE 

NNULL 

NO  LINE 

NNULL 

NO  MARK 

NNULL 

NOMARK 

NNULL 

NOLINE 

NNULL 

PENDOWN 

LNULL 

PENUP 

NNULL 

POINT 

NPOINT 

SYMBOL 

NSYMBOL 

TICLINE 

TNULL 

Several  other  options  may  effect  the  appearance  of  some  line  options.  These  are  tic- 
interval  settings,  dash  specifications  and  system  character  settings.  Each  of  these  is 
described  in  more  detail  below. 

TIC-INTERVAL  SETTINGS: 

The  tic  interval  to  be  used  when  drawing  ticked  lines  can  be  set  by  the  UPSET  option 
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"TICINTERVAL”.  The  UPSET  parameter  value  should  be  the  distance  between  tic  values 
in  current  user  units  (see  Pen  Coordinate  Options  below.)  The  user  is  cautioned  that  if 
he  changes  his  space  from  device  to  virtual  or  visa  versa  then  this  may  invalidate  his  tic- 
interval  setting.  Figure  2 shows  the  use  of  the  "TICINTERVAL"  UPSET  parameter. 

TIC  MARK  SIZE  OPTIONS: 

The  size  of  the  individual  tic  marks  may  be  specified.  GCS  allows  the  tic  marks  to  be  of 
different  sizes  on  each  side  of  the  line.  If  the  line  along  which  the  tic  marks  are  drawn  is 
considered  to  be  an  X-axis  and  is  rotated  about  its  tail  in  the  XV  plane.  When  viewed 
from  the  positive  Z-direction,  the  side  towards  positive  angles  of  rotation  is  considered 
the  "TICPLUS"  side  and  the  side  towards  negative  angles  of  rotation  is  considered  the 
‘TICMINUS’  side.  For  2D  applications,  the  "TICPLUS"  side  is  in  the  positive  Y direction 
and  the  "TICMINUS'  side  is  towards  the  negative  Y direction  if  the  line  is  considered  to  be 
an  X-axis.  The  tic  mark  sizes  may  then  be  set  by  the  following  UPSET  options: 

UPSET ("TICPLUS", value)  — The  ‘TICPLUS’  size  is  set  to  the  length  value  specified  in 

current  units. 

UPSETCTICMINUS", value)  — The  "TICMINUS"  size  is  set  to  the  length  value  specificed  in 

current  units. 


DASH  SPECIFICATION: 

The  dash  line  specification  which  UPEN  will  use  can  be  adjusted  to  produce  a wide 
variety  of  dashed  lines.  This  adjustment  is  made  by  the  UPSET  option  "SETDASH"  where 
the  parameter  value  is  a number  which  defines  the  dashed  line  as  follows.  Single  digits 
allow  selection  of  hardware-generated  dashed  lines  if  that  capability  exists.  The  digits 
1-8  will  produce  up  to  8 different  dashed  lines  depending  on  the  capability  of  the 
hardware.  The  digit  9 will  produce  a hardware-dotted  line  Should  hardware  dashed 
lines  not  be  available  on  the  terminal  being  used,  a default  software  dashed  line  will  be 
generated. 

Software  dashed  line  specifications  consist  a floating  print  number,  made  of  two  or  more 
digits  which  are  evaluated  left  to  right,  digit  by  digit.  Each  digit  represents  a line  segment 
which  is  either  visible  or  invisible  of  varying  length  as  specified  in  the  following  table. 


Digit 

Length  (inches) 

Visibility 

1 

.0366 

Visible 

2 

.0366 

Invisible 

3 

.0733 

Visible 

4 

.0733 

Invisible 

5 

.1831 

Visible 

6 

.1831 

Invisible 

7 

.3662 

Visible 

8 

.3662 

Invisible 

9 

.0073  (dot) 

Visible 

When  the  entire  integer  has  been  evaluated,  scanning  restarts  at  the  left  most  digit.  For 
example,  dash  code  34.  will  result  in  a visible  line  of  .0733  inches  followed  by  an 
invisible  line  of  .0733  inches  followed  by  a visible  line  of  .0733  inches,  etc.,  continuing 
until  the  head  of  the  vector  is  reached.  The  last  segment  may  be  a shortened  visible  or 
invisible  segment.  If,  however,  the  next  UPEN  movement  is  a dashed  line  starting  at  the 
head  of  the  previous  vector,  the  last  segment  of  this  previous  vector  will  be  completed 
and  the  sequence  continued  for  the  new  vector. 

The  complexity  of  the  dashed  line  specification  is  limited  only  by  the  number  of  digits  of 
precision  available  in  the  computer  floating  point  numbers.  Moreover,  visible  line 
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segments  need  not  be  alternated  with  invisible  line  segments.  Visible  line  segments  may 
be  combined  with  other  visible  line  segments  to  create  line  segments  ot  length  not 
available  through  single  digits.  Similarily,  this  applies  to  invisible  line  segments. 

SYSTEM  CHARACTER  SETTING: 

The  system  character  is  used  to  create  ALPHA  lines  and  to  indicate  which  character 
should  be  used  to  terminate  UPEN  operations  when  the  line  option  specifies  the 
'CHARACTER'  terminator.  The  system  character  may  be  set  by  a call  to  USET  where  the 
argument  is  the  single  character  to  become  the  system  character.  For  example,  the 
following  statement  would  set  the  system  character  to  the  dollar  sign: 

CALL  UPSET  ('CHARACTER', '$’) 

Should  it  also  be  disired  to  change  the  line  type  as  well  as  the  system  character,  the 
character  to  be  specified  in  the  USET  argument  may  be  prefixed  with  one  of  the  five 
available  line  types.  The  following  statement  would  change  the  system  character  to 
and  would  also  change  the  line  option  to  DCHARACTER’: 

CALL  USET  CD  + ') 

The  default  system  character  is  the  asterisk  (*). 

Also  to  be  considered  is  the  case  in  which  GCS  is  set  at  the  time  the  system  character  is 
set.  The  default  case  is  UPPERCASE.  However,  if  calls  to  UPRINT  have  left  GCS  in 
LOWERCASE  mode,  any  attept  to  set  the  system  character  will  generate  a lower  case 
character.  The  desired  case  may  be  set  by  using  one  of  the  following 

CALL  USET('UPPERCASE’) 

CALL  USET('LOWERCASE’) 

See  UPRINT  for  a complete  description  of  case  shifting 

CHARACTER  TERMINATOR: 

The  character  terminator  which  can  be  attached  to  any  of  the  line  types  will  appear  as 
either  a hardware  character,  a simulated  hardware  character,  or  a software  character 
depending  on  the  current  user  setting  of  'HARDWARE',  SIMULATED'  or  'SOFTWARE'. 
Hardware  characters  and  simulated  hardware  characters  will  have  their  lower-left 
corner  on  the  head  of  the  vector.  Software  characters  will  have  the  head  of  the  vector  at 
the  center  of  the  character.  The  appearance  of  hardware,  simulated  hardware,  or 
software  characters  may  be  affected  by  the  setting  of  the  italicization  and  character  font 
option  If  the  feature  is  available  and  has  been  implemented  Regardless  to  which  type  of 
character  is  specified,  at  the  end  of  the  UPEN  operation,  the  beam  on  pon  will  be  located 
at  the  head  of  the  vector.  See  U3PRNT  for  a more  detailed  description  of  the  character 
options. 

CHARACTER  DESCRIPTION  OPTIONS: 

The  character  description  options  are  fully  described  in  U3PRNT.  Most  character 
description  options  apply  when  using  character  or  coordinate  line  terminators. 

SYMBOL/MARKER  TERMINATOR: 

The  symbol  terminator  is  available  so  that  the  location  of  the  head  of  each  line  may  be 
uniquely  marked.  There  are  two  types  of  symbols.  The  first  type  are  GCS-deflned 
symbols.  The  second  type  are  installation-defined  or  device-defined  symbols.  The 
symbol  is  always  displayed  centered  at  the  head  of  the  line  and  the  resulting  beam/pen 
position  is  at  the  head  of  the  line.  Should  a marker  protrude  over  a display  surface  edge 
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or  the  edge  of  a window,  the  results  are  undefined  (i.e.,  the  marker  may  be  partially 
slipped  or  may  wraparound). 

SYMBOL/MARKER  SELECTION: 


i 


Symbols  are  selected  by  UPSET(‘MARKER’, index)  or  UPSET(‘SYMBOL’, index)  where 
index  is  a non-negative  real  number  whose  integer  value  is  used  to  select  the  symbol. 
Specifications  of  an  index  outside  of  the  range  of  valid  indecies  will  produce  symbol  X. 

BYMBOL/MARKER  SIZE: 

The  size  of  symbols/markers  may  be  specified  by  UPSETOSZMARKER’, value)  where 
value  is  a positive  number  in  current  device  units.  Markers  generated  by  hardware 
symbol  generators  may  be  restricted  as  to  size  variations.  If  so,  the  closest  size  (perhaps 
the  only  size)  will  be  used. 

COORDINATE  TERMINATORS: 

The  coordinate  terminators  will  generate  a set  of  coordintes  equivalent  to  the  location 
value  of  the  head  of  the  vector  in  current  user  units  enclosed  in  parentheses  and 
separated  by  a comma.  The  result  will  be  in  tne  same  format  as  if  the  coordinates  had 
been  produced  by  a call  to  UPRINT.  For  a more  complete  discussion  of  this  format  see 
UPRINT. 

COORDINATE  OUTPUT  TYPE: 

The  dimensionality  of  coordinate  output  is  determined  by  the  setting  of  the  USET  options 
•2DCOORDINATES'  and  '3DCOORDINATES'.  If  '2DCOORDINATES'  are  specified,  then 
only  the  (X.Y)  or  (R, THETA)  components  are  displayed  With  '3DCOORDINATES’,  all 
three  coordinate  components  are  displayed. 

GAPPED  LINE  MODE: 

If  'GAPPED'  lines  are  specified,  successfive  calls  to  U3PEN  will  alternate  drawing  lines 
of  the  current  line  option  with  'NNULL'  (invisible)  lines  This  feature  can  be  deactivated 
by  specifying  'UNINTERRUPTED'  lines  which  are  the  default. 

MAPPING/PROJECTION  OPTIONS: 

The  user  may  specify  the  type  of  mapping  to  be  applied  in  projecting  three-dimensional 
lines  onto  the  viewport.  The  two  available  mapping  are  ORTHOGRAPHIC’  in  which  the 
lines  of  projection  are  parallel  and  perpendicular  to  the  projection  plane,  and 
'PERSPECTIVE'  in  which  line  length  diminishes  as  the  distances  from  the  viewing 
position  (view  point)  becomes  greater.  PERSPECTIVE'  is  the  default.  The  difference 
between  these  two  options  is  shown  in  Figure  9. 

PEN  COORDINATE  OPTIONS: 

The  GCS  Pen  Coordinate  Options  have  been  designed  to  provide  the  flexibility  which  will 
allow  the  user  to  work  in  his  own  coordinate  type  and  unit  while  retaining  the  simplicity 
of  operation  and  specification  which  the  infrequent  and/or  unsophisticated  user  will  find 
convenient.  Thus,  the  Pen  Coordinate  Options  have  been  divided  into  several  classes 
each  of  which  allows  setting  of  its  options  completely  independently  of  any  effect  on  any 
of  the  others.  The  following  paragraphs  will  discuss  each  class  in  detail. 

COORDINATE  TYPE: 

This  indicates  the  kind  of  coordinates  the  user  will  specify  and  how  they  will  be 
interpreted  for  display. 
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‘RECTANGULAR’ 


i 


I 


— Coordinates  are  of  the  standard  forms  (X,Y)  or  (X,Y,Z) 
where  X is  the  number  of  units  along  the  X-axis.  Y is  the 
number  of  units  along  the  Y-axis,  and  Z is  the  number  of 
units  along  the  Z-axis  This  is  the  standard  default. 

‘POLAR’  ‘CYLINDRICAL  — Coordinates  are  of  the  forms  (R.THETA)  or  (R, THETA, Z) 

where  R is  the  number  of  units  of  radius  in  the  XY- 
plane,  THETA  is  the  number  of  angular  units  from  the  X- 
axis  in  the  XY-plane,  and  Z is  the  number  of  units  a'ong 
the  Z-axis.  (See  UARC  for  a description  of  angular 
units.) 

‘SPHERICAL’  — Coordinates  are  of  the  form  (RHO,  THETA,  PHI)  where  RHO  is  the 
number  of  units  of  radius,  THETA  is  the  number  of  angular  units  from 
the  X-axis  around  the  Z-axis  in  the  XY-plane,  and  PHI  is  the  number  of 
angular  units  from  the  Y-axis  around  the  X-axis. 

COORDINATE  MODE: 

This  indicates  where  the  base  point  or  origin  of  the  coordinate  units  is  located  Since  the 
conversion  from  relative  to  absolute  occurs  first,  the  (X,Y,Z)  components  described 
below  may  be  (R, THETA, Z)  or  (RHO, THETA, PHI)  components  if  the  user  has  specified  a 
coordinate  which  is  not  rectangular. 

‘ABSOLUTE' 


‘RELATIVE’ 


‘XABSOLUTE’  ‘YZRELATIVE’ 


‘YABSOLUTE’  ‘XZRELATIVE’ 


'ZABSOLUTE1  ‘XYRELATIVE' 


‘XRELATIVE’  ‘YZABSOLURE' 


■YRELATIVE’  ‘XZABSOLUTE’ 


‘ZRELATIVE’  'XYABSOLUTE' 


NOTE:  Use  of  relative  coordinates  will  not  necessarily  generate  device  com- 

mands using  relative  coordinates. 


— All  coordinate  components  are  indicated  based  on 
the  origin  of  the  current  coordinate  system.  This  is 
the  default  case 

— All  coordinates  are  indicated  with  respect  to  the 
current  beam/pen  position.  At  the  completion  of  any 
beam/pen  movement,  the  beam  will  be  at  relative 
coordinates  (0,0,0). 

— The  X-component  is  absolute  and  the  Y-  and  Z- 
components  are  relative 

— The  Y-component  is  absolute  and  the  X-  and  Z- 
components  are  relative. 

— The  Z-component  is  absolute  and  the  X-  and  Y- 
components  are  relative 

— The  X-component  is  relative  and  the  Y-  and  Z- 
components  are  absolute. 

— The  Y-component  is  relative  and  the  X-  and  Z- 
components  are  absolute 

— The  Z-component  is  relative  and  the  X-  and  Y- 
components  are  relative. 


COORDINATE  SPACE: 

This  indicates  the  address  space  to  which  the  coordinates  refer 
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•VIRTUAL' 


DEVICE’ 


The  coordinates  indicate  a point  in  virtual  space  Whether 
this  point  is  visible  on  the  display  surface  will  depend  on 
the  current  viewing  environment  (for  a complete  discus- 
sion of  the  viewing  environment,  see  UVIEW  and  UWIN- 
DO).  For  2-D  applications,  only  the  UWINDO  settings 
need  be  considered  These  coordinates  can  encompass 
any  of  the  real  numbers  within  the  capbilities  of  the 
computer  system  No  meaning  is  attached  to  these 
numbers  by  GCS;  therefore,  the  user  is  free  to  assign 
whatever  meaning  he  desires  to  the  numbers. 

The  coordinates  indicate  a point  on  the  DISPLAY' 
physical  device  surface.  Specification  of  points  not  on  the 
display  surface  may  yield  indeterminate  and/or  spurious 
results.  Since  the  lower  left  front  corner  of  the  display 
surface  always  has  address  (0,0,0),  all  negative  coordi- 
nates may  yield  spurious  results.  The  units  which  these 
numbers  reprosent  are  described  in  the  next  paragraph 


DEVICE  SPACE  UNITS: 


This  indicates  the  interpretation  to  be  given  to  the  numbers  used  in  plotting  in  'DEVICE' 
space  (see  previous  paragraph).  These  options  have  no  meaning  and  are  not  considered 
when  plotting  in  'VIRTUAL'  space. 


'INCHES’ 


— The  coordinate  values  refer  to  actual  inches  on  the 
display  surface  This  will  be  true  regardless  of  the  device 
being  used.  These  units  are  device-dependant  since  th 
size  of  the  display  surface  can  vary  from  device  to  device. 


'CENTIMETERS' 


The  coordinate  values  refer  to  actual  centimeters  on  the 
display  surface.  This  will  be  true  regardless  of  the  device 
being  used  These  units  are  device-dependent  since  the 
size  of  the  display  surface  can  vary  from  device  to  device 


'RASTER  UNITS’ 


'FONTUNITS' 


The  coordinate  values  refer  to  the  individual  addressable 
positions  on  any  particular  device  These  units  are 
device-dependant  and  may  not  be  transferable  to  other 
terminal  devices  since  the  size  of  the  device  address 
space  may  vary  from  device  to  device 

The  coordinate  values  refer  to  the  lower  left  front  corner  of 
individual  character  positions.  The  size  of  a character 
position  is  dependent  upon  the  current  size  of  the 
hardware,  simulated  hardware,  or  software  characters 
(whichever  is  currently  selected).  It  should  be  noted  that 
these  units  need  not  be  integers.  On  most  terminals, 
characters  can  be  placed  anywhere  on  the  display 
surface.  These  units  are  device-dependent  since  the  size 
of  hardware  characters  and  the  size  of  the  display  surface 
can  vary  from  device  to  device.  For  a complete  descrip- 
tion of  hardware,  simulated  hardware,  and  software 
characters,  see  U3PRNT. 


PERCENTUNITS' 


— The  coordinate  values  refer  to  hundredth  increments  of 
the  display  surface  address  space.  This  is  truly  a device- 
dependent unit.  Moving  an  image  created  on  one  device 
in  'PERCENTUNITS'  to  another  device  will  display  an 
image  using  the  same  proportional  amount  of  the  display 
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surface.  It  should  be  noted  that  if  a device  does  not  have  a 
square  display  surface  (aspect  ratio  = 1),  the  value  of  a 
PERCENTUNIT'  in  the  X-direction  will  differ  from  the 
value  of  a 'PERCENTUNIT'  in  the  Y-direction  See 
UASPCT  for  a description  of  the  effect  on  ‘PERCEN- 
TUNITS'  of  setting  the  aspect  ratio  of  the  display  surface. 

'SPECIFICATION'  UNITS’  — The  coordinate  values  refer  to  user-specified  increments 

of  the  display  surface  address  space  These  units  are 
device-dependent  and  function  similarly  to  the  ‘PERCEN- 
TUNITS'  described  above  SPECIFICATION  UNITS'  are 
defined  as  described  in  the  next  paragraph  Setting  the 
'SPECIFICATIONUNITS'  to  100  in  each  direction  results 
in  SPECIFICATIONUNITS'  which  are  identical  to  PER- 
CENTUNITS'  The  default  un!ts  are  1000,  along  each 
display  surface  address  space  axis 

SPECIFICATION  UNIT  SIZE: 

The  number  of  specification  units  which  occupy  the  display  address  space  may  be  set 

by  the  following  UPSET  options  The  default  for  each  is  1000  units 

UPSETCSPECIFICATIONUNITS’, value)  — This  sets  the  number  of  specification  units 

along  each  axis  of  the  display  surface  to  the 
value  specified 

UPSET('XSPECIFICATIONUNITS', value)  — This  sets  the  number  of  specification  units 

aiong  the  X-axis  of  the  display  surface  to  the 
value  specified  The  number  of  units  along 
the  Y-  and  Z-  axis  remain  uneffected. 

UPSETCYSPECIFICATIONUNITS', value)  — This  sets  the  number  of  specification  units 

along  the  Y-axis  of  the  display  surface  to 
the  value  specified  The  number  of  units 
along  the  X-  and  Z-axis  remain  uneffected. 

UPSETCZSPECIFICATIONUNITS’, value)  — This  sets  the  number  of  specification  units 

along  the  Z-axis  of  the  display  surface  to  the 
value  specified  The  number  of  units  along 
the  X-  and  Y-axis  remain  uneffected 


COORDINATE  SYSTEM: 

There  are  two  types  of  coordinate  systems  available  in  GCS  One  of  these,  the  'SYSTEM 
or  ‘WORLD’  coordinate  system,  is  defined  by  GCS.  The  other,  the  ‘USER’  or 
'MODELLING'  coordinate  system,  is  defined  by  the  user.  The  'USER'  coordinate  system 
is  defined  based  on  the  'WORLD'  coordinate  system  cr  on  other  ‘USER’  coordinate 
systems  The  ‘USER’  coordinate  system  can  be  cumulative  or  non-cumulative 
depending  on  whether  the  ‘USER’  coordinate  system  being  created  is  to  be  a new 
‘REFERENCE’  system  or  is  to  be  a WORKING’  system  respectively  See  U3CSYS  and 
UCOSYS  for  a complete  description  of  the  'USER'  coordinate  system  facility.  While 
'USER'  coordinate  systems  may  be  applied  in  'DEVICE'  space,  the  user  is  warned  that  a 
‘USER’  coordinate  system  constructed  in  one  coordinate  space  may  not  be  correct  if 
used  in  the  other  space 

'SYSTEM'  'WORLD'  - If  in  'DEVICE'  space,  GCS  defines  this  coordinate  system 

to  refer  to  the  unrotated,  unsealed  system  inherent  In  the 
display  surface  addressing  scheme  This  normally  places 
the  origin  at  the  lower  left  front  corner  of  the  display 
surface  If  in  ‘VIRTUAL'  space,  this  coordinate  system  is 
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unrotated  with  the  origin  located  in  virtual  space  at  a 
position  represented  the  computer  system  real  numbers 
(0.,0.,0).  The  SYSTEM'  or  'WORLD'  coordinate  system  is 
the  default  setting.  The  'WORLD'  coordinate  system  may 
be  USET  to  be  either  'LEFTHANDED'  or  ‘RIGHTHANDED' 
Default  is  ‘RIGHTHANDED’. 

'USER  'MODELLING'  — The  user  may  define  his  own  coordinate  system  based  on 

the  currently  specified  coordinate  system  whether  it  be 
‘SYSTEM’  or  'USER'.  The  default  'USER'  coordinate 
systems  are  identical  to  the  ‘SYSTEM’  coordinate  system. 
GCS  maintains  two  'USER'  coordinate  system:  a 'REFER- 
ENCE' system  and  a 'WORKING'  system.  These  are 
defined  below. 

USER  COORDINATE  SYSTEM  TYPE: 

This  specifies  which  of  the  two  GCS-maintained  USER'  coordinate  systems  are  to  be 
used. 

‘REFERENCE’  — This  selects  the  REFERENCE’  user  coordinate  system 

The  effect  of  creating  a new  'REFERENCE'  system  is 
cumulative  as  it  is  based  on  the  previous  'REFERENCE' 
system.  See  UCOSYS  and  U3CSYS  for  details.  This 
setting  has  no  effect  when  using  the  SYSTEM'  coordinate 
system. 

'WORKING'  — This  selects  the  WORKING'  user  coordinate  system.  The 

effect  of  creating  a new  ‘WORKING’  system  is  non- 
cumulative  as  it  is  based  on  the  current  'REFERENCE' 
system.  See  UCOSYS  and  U3CSYS  for  details. 

LOGARITHMIC  SCALING: 

This  option  allows  the  application  of  a logarithmic  scale  factor  along  any  of  the 
coordinate  components.  Any  logarithmic  base  is  supported  and  may  be  individually 
selected  for  each  component  (see  below).  Note  that  if  the  coodinate  type  is  other  than 
'RECTANGULAR',  the  logarithmic  scale  factor  may  be  applied  to  the  angular  unit 
components  if  desired  (eg.,  'YLOGARITHMIC'  would  apply  this  factor  to  the  THETA 
component  of  'CYLINDRICAL'  or  'POLAR'  coordinates).  See  the  Logarithmic  Application 
Time  options  described  below 

Application  of  a logarithmic  scale  factor  will  modify  the  size  of  the  plot  in  relation  to  he 
window  since  the  window  is  now  looking  at  exponents  rather  than  actual  values.  This 
may  be  adjusted  for  by  some  of  the  higher-level  graphing  routines  (see  U3AXIS). 


'LOGARITHMIC'  — A logarithmic  scale  factor  is  applied  along  each 

‘XYZLOGARITHMIC’  component 

'NOLOGARITHMS'  — Logarithmic  scaling  is  disabled.  This  is  the  default. 

'XLOGARITHMIC'  — The  appropriate  logarithmic  scale  factor  is  applied  to  the 

‘YLOGARITHMIC’  component  indicated  Other  components  remain  linear. 

'ZLOGARITHMIC'  2-D  applications  should  use  ‘X YLOGARITHMIC'  to  avoid 

XYLOGARITHMIC'  conflicts  with  the  default  Z-value  of  0 

XZLOG/'  RITHMIC' 

YZLOGARITHMIC 
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LOGARITHM  APPLICATION  TIME: 


I 


The  effect  of  logarithmic  scaling  is  dependent  upong  the  state  of  the  coordinates  at  the 
time  the  scaling  is  applied.  Three  options  allow  the  user  to  direct  the  time  at  which  the 
scaling  is  applied  as  follows: 

‘LOGOBJECT’  — Logarithmic  scaling  is  applied  to  the  coordinates  provided 

by  the  user  after  conversion  to  ‘ABSOLUTE’  but  prior  to 
any  other  transformations.  In  this  mode,  log  scaling  may 
be  applied  to  the  angle  and/or  radius  components  of 
■CYLINDRICAL',  •POLAR’,  or  ‘SPHERICAL'  coordinates. 

Logarithmic  scaling  is  applied  after  conversion  to 
'ABSOLUTE'.  'RECTANGULAR',  'USER'  coordinates  but 
before  conversion  to  'SYSTEM'  coordinates.  In  this  mode, 
logarithmic  scaling  will  be  applied  along  the  current 
'USER'  coordinate  system  axes  if  'USER'  is  specified.  If 
'SYSTEM'  is  specified,  ‘LOGUSER’  is  equivalent  to 
'LOGSYSTEM'. 

LOGSYSTEM’  — Logarithmic  scaling  is  applied  after  conversion  to 

'LOGWORLD'  'SYSTEM'  coordinates.  In  this  mode,  the  logarithmic 

scaling  will  be  applied  along  the  ‘SYSTEM’  coordinate 
system  axes.  This  is  the  default  mode. 

LOGARITHM  BASE: 

The  base  to  be  used  for  logarithmic  scaling  can  be  selected  for  all  coordinate 
components  or  individually  for  each  coordinate  component  by  using  the  following 
UPSET  options.  The  value  can  be  any  positive  real  number  or  the  character  strings  “E" 
or  "e". 

UPSETCBASE’, value)  — The  base-  for  logarithmic  scaling  along  each  component  is  set  to 
the  value  specified. 

UPSETCXBASE', value)  — The  base  for  logarithmic  scaling  along  the  X-component  is  set 

to  the  value  specified.  The  other  bases  remain  uneffected. 

UPSETCYBASE’, value)  — The  base  for  logarithmic  scaling  along  the  Y-component  is  set 

to  the  value  specified.  The  other  bases  remmain  uneffected. 

UPSET'ZBASE', value)  — The  base  for  logarithmic  scaling  along  the  Z-component  is  set 

to  the  value  specified.  The  other  bases  remain  uneffected. 

INTENSITY: 

The  brightness  of  the  output  on  the  display  surface  may  be  specified  if  the  device  has 
variable  intensity  settings.  Intensity  settings  are  specified  by 
UPSETCBRIGHTNESS', value)  where  the  value  is  a percentage  along  the  range  of 
allowable  intensity  settings  from  minimum  to  maximum.  This  0.  is  the  lowest  intensity 
setting  and  1 00.  is  the  highest  intensity  setting.  Intensities  may  also  be  specified  by  the 
following  USET  options.  Default  intensity  level  is  60%. 

‘DIM’  — The  intensity  is  set  to  the  1 0%  level. 

‘NORMAL’  — The  intensity  is  set  to  the  60%  level. 

‘BRIGHT’  — The  Intensity  is  set  to  the  100%  level. 


•LOGUSER’ 

■LCGMODELLING’ 
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LINE  WIDTH: 


The  line  width  (sometimes  referred  to  as  spot  size)  may  be  specified  if  the  device  has  a 
variable  line  width  Line  widths  are  specified  by  UPSFT  ('WIDTH', value)  where  the  value 
represents  the  width  of  the  line  in  current  unite  The  line  width  may  also  he  eet  uslna  the 
following  USl  t option*  the  default  width  la  I MIN' 

‘THIN’  — The  line  width  is  set  to  the  thinnest  line  If  a simulator  Is  being  used,  a 

single  line  is  generated. 

'WIDE'  — The  line  width  is  set  to  the  widest  line.  If  a simulator  is  being  used,  a 

line  approximately  .1  inches  in  width  is  generated. 
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Tf • XnUrval  IrmIPImIIot 
Flwurm  E OJ9POO 


rAi  i USTART 

CALI.  UPSET  C 7 TERMINATOR7,  * j'i 
CALL  USET  C'TARROV'> 

CALL  UNOVE  C0.,60.> 

CALL  UPSET  C'TICINTEHVAL'. 18.5 

call  upen  cce.,sa.> 

CALL  UMOVE  C0.,40.> 

CALL  UPSET  C/TXCIMTERVAL/,S. > 

CALL  UPEN  C60 . , 40 . ) 

CALL  USET  C'ACENTERO 
CALL  USET  C 7 LARSE 7 5 

CALL  UPRJHT  C26. ,30., 7T>IC  <X>NTERVAL  <S>PEdFICATION< j 7 > 

CALL  UPRZNT  C2S.,2S., /F>Z6URE  2 CCU3PEN3; 7 3 

CALL  UEND 

STOP 

BNP 
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U 


Tl«  Mark  SIsm 
Pl«ur«  S CUSPDO 


CALL  USTART 


CALL 

CALL 


CALL 

CALL 


UPSET  C'TERHINATOR'. O 
USET  C'TARROV'3 
UPSET  C * TICXNTERVAL ',5.5 
UHOVE  <6. .70.} 

UPEN  C20 . . 70 . } 

UNOVE  C<40.„00.> 

UPEN  C40.,60.> 

UPSET  C'TICPLUS'. 10.) 

UPSET  <'TICHXNU6'.E.) 

UNOVE  C5 . , 40 . ) 

UPEN  C 20.. 40. 5 
UNOVE  C 40. .30. 3 
UPEN  C40..S0.) 

USET  C'ACENTER'3 
USET  C'LAROE') 

UPR1NT  C2S.. IS.. /T>IC  <M>ARK  <S>XZES; ') 
CALL  UPR2NT  <26 . . 1 0 . , ' <F>I0URE  3 «U3PEN)j'> 


CALL 

CALL 

CALL 

CALL 

CALL 


CALL 

STOP 

ENP 


UEND 
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t CHON-HARDWARE  DASH) 

® CHON-HARDWARE  DASH) 


Exonp  I«a  of  D«mH*4  Uno* 

Flour*  4 CUSPEN) 


DINEN8I0N  DTA0LEC9) 

DATA  DTABL£/9.,I ., 12945878., 7292., 9464., 744., 74.. 18., 58./ 
i USTART 

CALL  UPSET  C'TERHINATOR'.';') 

CALL  USET  C'LARCE') 

CALL  USET  C' INTEGER') 

CALL  USET  C'DNULL') 

DO  19  I - 99.78,5 
Y - I 

J - CI-99)  / 5 ♦ I 

CALL  UPSET  C'SETDASH'.DTAflLECJ)) 

CALL  UPRINT  C8. , Y, DTA0LECJ)) 

19  CALL  UPEN  C69..Y) 
rki  i ysET  c'TOCT') 

CALL  UPRINT  C69..95., 'CNON-HARDWARE  DASH);') 

CALL  UPRINT  C68., 99.,  'CNON-HARDWARE  DASH);') 
ran  user  C'ACENTER') 

CALL  UPRINT  C58. .28., 'E>XAHTLES  OF  <D>ASHB>  <L>INE8;') 
CALL  UPRINT  CS8. , 15., '<F>I9URE  4 CU9PEN); ') 

CALL  UEM> 

STOP 

END 


Charootwr  T*r» I notor  Output 
Flgur.  5 CU3PEN> 


rAi  i ugTART 

CALL  UPSET  C'TERMINAT0R',S'3 
CALL  USET  C' PERCENT  UNITS' 3 
CALL  USET  C'LCHARACTERS'3 
CALL  U3M0VE  <t0..80.#0.3 
f;Ai  i U3PEN  C60.  80  .-Cfl  3 

CALL  USET  C' SIMULATED  HARDWARE  CHARACTERS' 3 
CALL  UPSET  C'XSIZE',6.3 
CALL  UPSET  C'YSIZE',7.3 
CALL  U3MOVE  CIS. ,06. .0.3 
CALL  U3PEN  C60..06.,-60.3 
CALL  USET  C' SOFTWARE  CHARACTERS' 3 
CALL  U3M0VE  CIO. ,60. ,0.3 
CALL  U3PEN  C60. , 60. 60 . 3 
r ai  i USET  C'ACENTER'3 
CALL  USET  C 'HARDWARE  CHARACTERS' 3 
cai  i USET  C'LAR0E'3 
CALL  U3PRNT  C26. ,30.,0. . 'OHARACTER  <T>ERMINATOR 
CALL  U3PRNT  C26 . , 26 . . 0 . . ' <F>ICURE  6 <CU3PEN3j'3 
CALL  UEND 
STOP 
END 


•coMnwrvs 
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rAi  i USTART 

CALL  UPSET  C ' TERMINATOR '3 
CALL  USET  C'NSYMBOL') 

CALL  USET  C'ACENTERO 
CALL  USET  C 'INTEGER 'i 
CALL  USET  C' LARGE '5 
CALL  UPSET  C'SZMARKEX', .3> 

DO  IS  I - 6,86, IS 
X - I 

SYM  - Cl-Si  / IS 

CALL  UPSET  C ' SYMBOL SYTO 

CALL  UPEN  CX,S8.> 

IS  CALL  UPRINT  CX,58.,SYM) 
r?Ai  i USET  C 'TEXT '5 

CALL  UPRINT  CSS . # 4S . . ' CCS-D>EF3NED  <S>YNBOLS, '3 

CALL  UPRINT  CSS . , 96 . , ' <F>I8URE  « «U9PEN>jO 

CALL  UEND 

STOP 

END 
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jC30.,ee.> 


.150.  .50.  .0. ) 

(30  . . 40  . ) 


Coord (not*  Tornlnotoro 
Flour*  7 CU3PEN3 


f*A!  1 USTARTT 

CALL  UPSET  C'TERWNATOR'.'j'i 

CALL  USET  C'LCOORDINATES'3 

CALL  USET  C'LAROEO 

CALL  UHOVE  CO.. 60. 3 

CALL  UPEN  <30. .60. 3 

CALL  USET  C 'SIMULA TEP  HARDWARE' 3 

CALL  USET  C ' 3D COORDINATES ' 3 

CALL  UHOVE  C0..S0.3 

CALL  UPEN  C 30. .SO. 3 

CALL  USET  C' SOFTWARE '3 

CALL  USET  C ' 2D COORDINATES ' 3 

CALL  UHOVE  CO . . 40 . 3 

CALL  UPEN  C 30. .40.3 

CALL  USET  C'ACENTERO 

ptai  i USET  C 'HARDWARE'  3 

CALL  UPRINT  <30.. 30..  'OOORDXNATE  <T>ERHINATORS/  ' 3 

CALL  UPRINT  <30 . . 26 . . ' <F>IBURE  7 «U3PEN3j'3 

CALL  UEND 

STOP 

END 
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UlrtM 

Flaw*  0 CU3PEPO 


CALL  U6TART 

CALL  UPSET  C 'TERMINATOR7, ' j '3 
CALL  USCT  C'LARROUO 
CALL  USCT  C' UNINTERRUPTED '3 
ZLOOP  - 0 
XLOC  - ZB. 

10  IP  CILOOP  . CQ.  23  00  TO  20 
CALL  UH0VE  OOjOOS.,30.3 
CALL  UPEN  OOjOC*I5.,30.3 
CALL  UPEN  00X0*20., 36. 3 
CALL  UPEN  C XLOC  4-20  .,45.3 
CALL  UPEN  00.00* 1 6., 50. 3 
CALL  UPEN  CXLOOrC  ..60.3 
CALL  UPEN  CXLOC, 46. 3 
CALL  UPEN  CXLOC,  96 . 3 
CALL  UPEN  CXLOO*€ ..50.3 
XLOOP  - ILOOP  ♦ t 
XLOC  ■ 66. 

CALL  U8ET  C' CAPPED' 3 
00  TO  10 

20  CALL  USCT  C'ACENTER'3 
pai  i U8ET  C'LAROE'3 

CALL  UPRXNT  C60 . , 20 . , * OAPPED  <L>XNESj'3 
CALL  UPRINT  <50 .,16.,' <F>IGURE  S «U3PEN3*'3 
CALL  UENP 

STOP 

eNP 
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Project  ton  (Mm 
Fl«ur*  a cuaroo 


CALL  ATTACH  <2.  '/TEK3DEN0/6AVE;  ',3.0, 1ST,  5 
PAI  i USTART 

CALL  UPSET  C' TERMINATOR', ' ; '5 

rAi  i UASPCT  <1.5 

CALL  UPSET  C'LXDRARYFILE'. 1.5 

CALL  UTILTY  C'LOAD',2.5 

CALL  USET  C'ACENTER'5 

rAi  i USET  C'LARQE'5 

CALL  UPRJNT  CSS . , 26 . , ' P>R0JECT1ON  OOODESjO 

CALL  UPR2NT  CSS . . 20 . . ' <F>IOURE  0 <<U3PEN5<0 

CALL  USET  C' NOCENTER '5 

CALL  USET  C' REFERENCE  SYSTEM' 5 

CALL  UVZEW  <—40., 200., 70., -20., 20., 0.5 

CALL  UW3MX)  <-100. , 100. ,-100. , 100. 5 

CALL  UVWPRT  CIE0.5 

CALL  USET  C' PERSPECTIVE '5 

CALL  USET  C' PERCENT  UNITS' 5 

CALL  UDAREA  <0., 60. ,26. ,76. 5 

CALL  U3CALL  <-60.,20.,0., I ., 1 ., 1 .,00.,0.,0.. 'CHURCH '5 
CALL  USET  C'ORTHO0RAPHXC'5 
CALL  UDAREA  <60., 100. ,26. ,76. 5 

CALL  U3CALL  C-60.,20.,0., I .. 1 ., I .,9O.,0.,O., 'CHURCH '5 

CALL  UENP 

STOP 

END 
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Cylindrical  Coordinate* 
Flguro  18  CU9POO 


r±i  i uctaRT 

CALL  UPSET  C 7 TERMINATOR7, 7 j 7i 
CALL  USET  C 'LAPSE' 3 
pai  i USET  C'ACENTERO 

CALL  UPR2NT  CSS . . 20 . , 7 OYLINDRXCAL  COOORDINATESj  7 i 
CALL  UPRINT  CSS . , I C . , 7 <F>I6URE  IS  <CU3PEN>,7> 

CALL  UVZEW  CIBS., 168. ,38. ,8. ,8. ,38.5 
CALL  UWDOO  C— ISO.  , ISO.  , — 108. , 188.3 
CALL  USET  C 7 CYLINDRICAL  7 > 

CALL  UCRCLE  C8.,8.,38.3 
CALL  UPSET  C ' ZVALUE ',08.3 
CALL  UCRCLE  C8.,8.,38.) 

DO  18  1-1,340. IS 
THETA  - I - I 

CALL  U3M0VE  C38.. THETA. 8.3 
18  CALL  U3PEN  <38., THETA, 08. 3 
CALL  UEND 
STOP 
END 
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l^harlMl  Cmt^ImU* 
Flaur*  U Cl* POO 


hai  i USTART 

CALL  UPSET  < 'TERMINATOR O 
CALL  USET  C'ACENTER'3 
hai  i user  C'LAROE'5 

?ALL  UPgaMT  CS8..28..'S>PHERICAL  <OOORDINATES,  ' > 
CALL  UPRINT  CSS . . I S . . ' <F>ICURE  It  CCU3PEN);') 

CALL  UVZEW  <168.. 168. .38. .8.. 8..  8. 3 
CALL  UWXNDO  CHW.,  188. .-188..  188.3 
CALL  user  C 'SPHERICAL  COORDINATES' 5 
RADIUS  - 38. 

XLOOP  “ 8 

18  IP  CILOOP  .EQ.  23  80  TO  28 
DO  IS  I - l#  181.  28 
RHO  - I - | 

CALL  U3M0VE  CRADIUS. 8 . . RH03 
DO  16  U - I,  381.  18 
THETA  - 0 - I 

IS  CALL  U3PEN  CRADIUS. THETA. RH03 
CALL  U3M0VE  C8..8..8.3 
CALL  U3R0TA  C8..88..8.3 
XLOOP  - ZLOOP  ♦ I 
00  TO  18 
28  CONTINUE 
CALL  UEND 


■oqar  I thilo  Seal  I no 
Flour*  12  CUSPEN) 


DIMENSION  XCI81),YC10I) 

CAU.  USTART 

CALL  UPSET  C 'TERMINATOR'. '/') 

CALL  UASPCT  Cl .3 
DO  IS  X - I,  ISI 
XCX)  - I 

IS  YCI)  - IS.im»cXCX)/S8.) 

CALL  USET  C' PERCENT  UNITS') 

CALL  UDAREA  <6.#4C.,68., 188.) 

, CALL  UMOVE  CXCD.YCD) 

DO  28  I - Z.  ISI 
28  CALL  UPEN  CXCD.YCD) 

CALL  USET  C'YLOQARXTHHXC') 

CAU.  UDAREA  CBS. ,8S. ,68. . ISS. ) 

CAU.  UMOVE  CXCD.YCD) 

DO  SO  X - 2,  ISI 
SS  CALL  UPEN  CXCD.YCD) 

DO  48  X - |.  ISI 
XCX)  - FLOAT  CD  / I .2 
48  YCI)  - 2.m»CXCX)  / IS.) 

CALL  USET  C 'POLAR') 

CALL  UWXNDO  C— ISS. . 188. .-188. . ISS. ) 
CALL  USET  C'NOLOSARXTHMS') 

CALL  UDAREA  CS..4S..2S..68.) 

CALL  UMOVE  CXCD.YCD) 

DO  SO  I - 2,  ISI 
SS  CALL  UPEN  CXCD.YCD) 

CALL  UDAREA  CSS.,8S.,2S. .68. ) 

CALL  USET  C'XYLOSARXTHMXC') 

CALL  UPSET  C'BAS£'.2.) 
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CALL  USET  C'LOQOBJECT' > 

CALL  MOVE  CXCO.VCm 
DO  00  I - 2,  101 
00  CALL  UPEN  OtCD.YCIJ} 

CALL  USET  C'NOLOOARXTHHSO 
CALL  USET  C 'RECTANGULAR' i 
CALL  UUZNPO  CO..  100. .0..  100. > 

CALL  UDAREA  CO.. 100.. 0.. 100.) 

CALL  USET  C'LAROE') 

CALL  USET  C'ACENTERO 

CALL  UPRXNT  CS0..20..  'LXMARXTHNIC  <3>CALING/0 

CALL  UPR3NT  CGO . . 1 6 . . ' <F>IGURE  12  <CU3PQO;') 

CALL  UEMD 

STOP 

END 
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Subroutine  U3PEN1 


3D 


FUNCTION: 

This  routine  sets  the  USET  option  provided,  draws  the  indicated  3D  line  using  the 
current  line  option,  and  then  restores  the  value  changed  by  the  USET  option. 

CALLING  SEQUENCE: 

CALL  U3PEN1  (X,Y, 2, OPTION) 

Where 

X is  the  X (RADIUS)  coordinate  of  the  head  of  the  beam/ pen  movement 

Y is  the  Y (THETA)  coordinate  of  the  head  of  the  beam/pen  movement 

Z is  the  Z (PHI)  coordinate  of  the  head  of  the  beam/pen  movement 

OP  riON  is  the  USET  option  to  be  set  only  for  the  execution  of  the  subroutine 

OPTIONS  which  may  apply: 

Any  USET  option. 

See  UPEN/U3PEN  for  a description  of  options  effective  pen/beam  movements. 

COMMENTS: 

U3PEN1  is  convenient  for  setting  options  which  will  apply  only  to  one  pen/beam 
movement.  The  GSA  setting  modified  by  OPTION  will  be  restored  prior  to  returning  to  the 
calling  program 

Programming  Notes: 
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Subroutine  U3PLAC  30 

FUNCTION: 

This  routine  applies  a 3-D  image  translation  transformation  to  the  indicated  segment/ 
'rarne. 

CALLING  SEQUENCE: 


CALL  U3PLAC  (X.Y.Z.SEGID) 

V/  here 

X,Y,Z  is  the  new  position  of  the  segment  in  current  3-D  device  units. 

SEGID  is  the  identifier  of  a "retained"  segment/frame  which  was  UOPENed  for  at 

least  3-D  image  translations. 

OPTIONS  which  may  apply: 

Device  Units:  'INCHES',  'CENTIMETERS’,  'FONTUNITS',  'SPECIFICATION  UNITS’ 
‘PERCENT  UNITS' 

Specification  Unit  Size  (UPSET):  'SPECIFICATION  UNITS',  ^SPECIFICATION  UNITS'. 

^SPECIFICATION  UNITS',  ‘ZSPECIFIC ATION 
UNITS' 

Segment  Identifier  Mode:  'FNAME',  'FNUMBER',  'SNAME',  'SNUMBER' 

Segment  Type:  'NOTRANSFORMATIONS',  '2DTPANSLATION',  '2DGENERAL' 
'3DTRANSLATION',  '3DGENERAL' 

COMMENTS: 

The  image  transformation  is  applied  to  the  specified  segment.  If  the  resulting  image 
exceeds  the  display  dimensions,  the  result  is  undetermined. 

Image  transformations  are  only  applied  if  supported  on  the  current  display  surface. 
Requests  for  image  transformations  will  be  ignored  if  the  display  device  does  not 
support  this  facility. 

Programming  Notes: 
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Subroutine  U3PLOT 


3D 


FUNCTION 

This  routine  provide^  a general-purpose  numeric  3-D  plotting  capability  Given  three 
arrays  of  corresponding  coordinates  ot  one  or  more  curves,  it  will  scale  and  plot  thpse 
points  along  with  suitable  axes  and  labels  as  specified  by  the  uaei 

CALLING  SEQUENCE: 

CALL  U3PLOT(X,Y,Z, CURVES, PTS.OPTS) 


Where 

is  a set  of  X ot  RADIUS  COMPONENTS  for  the  points  for  all  the  curves  in 
current  user  units. 

is  a set  of  Y or  THETA  components  for  the  points  for  all  the  curves  in 
current  user  units. 

is  a set  of  Z or  PHI  components  for  the  points  for  all  the  curves  in  current 
user  units. 

is  a single  variable  which  indicates  the  number  of  curves  to  be  plottes. 

is  an  array  which  indicates  how  many  points  are  in  each  curve. 

is  an  array  which  specifies  which  USET  option  will  apply  to  ach  curve  as  it 
is  being  plotted.  One  option  must  be  specified  for  each  curve  and  only  the 
first  four  characters  of  the  option  name  should  be  specified. 

OPTIONS  which  may  apply: 

All  which  apply  to  UPLOT 
All  which  apply  to  U3AXIS 

X-Component  Repetition  Option:  'XREPEAT',  ‘NOXREPEAT',  'XCONSTANT' 
Y-Component  Repetition  Options:  'YREPEAT',  NOYREPEAT’,  'YCONSTANT' 
Z-Component  Repetition  Options:  'ZREPEAT',  'NOZREPEAT',  'ZCONSTANT' 

COMMENTS: 

Since  the  U3AXIS  options  apply,  the  user  should  become  familiar  with  their  effects. 

The  Component  Repetition  Options  allow  the  user  to  avoid  repetitious  storing  of 
components  which  retain  the  same  value  throughout  a particular  curve  or  over  a group  of 
curves.  Selecting  a 'CONSTANT'  option  indicates  that  that  component  does  not  vary 
during  any  of  the  drawing  Selecting  a 'NOREPEAT'  option  indicates  that  a component  is 
provided  for  every  point  in  every  curve.  This  is  the  default.  Selecting  a 'REPEAT'  option 
indicates  that  one  set  of  component  values  is  provided  which  will  be  reused  for  each 
curve.  The  size  of  this  set  is  always  the  number  of  points  in  the  first  curve.  If  subsequent 
curves  have  more  points  than  the  first  curve,  U3PLOT  will  start  to  resequence  through 
the  'repeated'  components 


X 

Y 

Z 

CURVES 

PTS 

OPTS 


Programming  Notea: 
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SPIRAL  ON  A SPHERE 


REAL  XC4015.  YC40I 5.  ZC40I5,  R 

R - 10. 

PC  I*  X - l . 401 
ZCI5  - FlJOATCI-O  » R/200.0  - R 
T - SORT CR«m*2  - 2CI5*h»25 
XCI5  - COSCZCX5  m 0.55  « T 
YCX5  - SXNCZCX5  n 0.55  M T 
10  CONTINUE 
CALL  U8TART 

CALL  UPSET  C'TERHINATOR','*'5 
CALL  UPSET  C' HORIZONTAL'.  .85 
CALL  UPSET  C 'VERTICAL'. 1.25 
CALL  USET  C'SOTT'5 
CALL  USET  C'NOYLA0ELS'5 
CALL  UW3MDO  C-15..  I6..-I5..  15.5 
CALL  UVXEV  C30..— 30..2O..0..O..0.5 
CALL  U9PL0T  CX.Y.Z. I ..401 ., 'LNULL'5 
CALL  UVXEV  C0..0.. I50..0..0.5 
CALL  USET  C'ACENTER'5 
CALL  U3MOVE  CO. .-II. .0.5 

CALL  UPRNTI  C' SPIRAL  ON  A SPHERE* ' , 'TEXT' 5 

CALL  UEND 

STOP 

EM> 


Subroutine  U3PRNT 


3D 


FUNCTION: 

This  routine  displays  textual  data  justified  at  the  3D  pen  position  specified.  At 
termination,  the  pen  will  be  positioned  at  the  end  of  the  text  string  ready  for  additional 
characters. 

CALLING  SEQUENCE: 

CALL  U3PRNT  (X,Y,Z,DATA) 

Where 

X,Y,Z  are  the  coordinates  of  the  text  string  justification  positioned  in  current 

units. 

DATA  is  a GCS  Hollerith  text  string  if  'TEXT'  is  specified. 

is  a REA  L varible  if  'INTEGER'  or  'REAL'  is  specified. 

is  a REAL  array  of  two  elements  if  'XYCOORDINATES'  are  specified. 

is  a REAL  array  of  three  elements  if  'XYZCOORDINATES'  are  specified. 

OPTIONS  which  may  apply: 

Alphanumeric  Output  Type:  'TEXT',  'INTEGER',  'REAL',  'XYCOORDINATES', 

'XYZCOORDINATES'. 

GCS  Terminator  Character.  UPSET ('TERMINATOR'), value) 

Numeric  Precision  Option.  UPSETCPRECISION'.value) 

Significant  Zero  Option:  'SIGNIFICANT  ZEROES',  NOSIGNIFICANTZEROES’ 

Character  Type  Options:  'HARDWARE',  'SIMULATED  HARDWARE',  ‘SOFTWARE’ 

Hardware  Character  Position  Size:  'SMALL',  'MEDIUM',  LARGE',  ‘EXTRALARGE’. 

UPSETCXSIZE’, value),  UPSETCYSIZE', value) 

Software  Character  Position  Size:  UPSETCHORIZONTALSIZE, value),  UPSET 

OVERTICALSIZE'.value) 

Character  Position  Occupancy:  UPSETCXPERCENT’, value),  UPSETOYPERCENT’ 

value),  UPSETCZPERCENT', value) 

Alphabetic  Case  Shifting.  'UPPERCASE',  ‘LOWERCASE’ 

Case  Shift  Character  Specification:  UPSETCUPPERCASE', value), 

UPSETCLOWERCASE',  value) 

Orientation:  UPSETCORIENTATION’, value) 

Itallcizatlon  Options.  'ITALICS’,  'NOITALICS' 


Italic  Slant  Angle:  UPSETCSLANT', value) 
Coordinate  Space  Options:  'VIRTUAL',  ‘DEVICE’ 
Margin  Boundaries:  see  UMARGN 


247 


Window  Boundaries:  see  UWINDO 

Alphanumeric  Spacing  Options:  ‘VERTICAL',  ‘HORIZONTAL’ 

Alphanumeric  Justification  Options:  'NOCENTERING',  'ACENTERING', 

'NOJUSTIFICATION', 'LJUSTIFICATION'. 

'C JUSTIFICATION’,  'R JUSTIFICATION’ 

Subscript  Character:  UPSETCSUBSCRIPT', value) 

Superscript  Character:  UPSETCSUPERSCRIPT', value) 

Subscript/Superscript  Specification:  'SUBSCRIPT',  'SUPERSCRIPT',  'NOSCRIPT' 
Scripting  Level:  UPSETCSCRIPTLEVEL’, value) 

Pen  Coordinate  Option:  seeU3PEN 

Coordinate  System:  'SYSTEM',  'WORLD',  'USER',  MODELLING' 

User  Coordinate  System  Type:  'REFERENCE',  ‘WORKING’ 

Attributes:  see  U3PEN 

COMMENTS: 

The  description  of  the  alphanumeric  output  facilities  is  divided  into  three  areas  of  format 
character  descriptions  and  alphanumeric  output,  positioning  each  of  these  will  be 
discussed  individually. 


Programming  Notes: 


FORMAT: 


U3PRNT  handles  any  of  five  types  of  alphanumeric  opertlons  The  format  of  the  Input 

parameter  DATA  depends  upon  which  type  of  operation  Is  specified 

— The  input  is  a single  real  variable  whose  integer  value 
will  be  displayed  at  !X,Y,Z).  Truncation  will  occur  if  a 
number  which  is  not  an  integer  is  provided. 

— The  input  is  a single  real  number  whose  value  will  be 
displayed  at  (X,Y,Z).  The  number  of  digits  of  precision 
can  be  adjusted  by  using  UPSET  (‘PRECISION', value) 
where  the  value  is  the  number  of  digits  of  precision 
desired.  Numbers  will  be  rounded  to  the  least  signifi- 
cant digit.  The  default  precision  is  four.  Display  of 
significant  trailing  zeroes  is  controlled  by  the  signifi- 
cant zero  USET  option.  ‘SIGNIFICANT  ZEROES'  spec- 
ifies that  significant  zeroes  are  to  be  displayed; 
‘NOSIGNIFICANT  ZEROES'  suppresses  their  display. 
The  default  suppresses  significant  zeroes. 

'XYCOORDINATES'  — The  input  is  a real  array  of  two  elements.  The  first 

element  reflects  an  X-  or  RADIUS  coordinate  compo- 
nent at  the  second  element.  The  second  reflects  a Y-  or 
THETA  coordinate  component.  The  coordinates  will  be 
displayed  at  (X,Y,Z)  enclosed  in  parentheses  and 
separated  by  a comma 

‘XYZCOORDINATES’  — The  input  is  a real  array  of  three  elements.  The  first 

element  reflects  an  X-  or  RADIUS  coordinate  compo- 
nent; the  second  element,  a Y-  or  THETA  coordinate 
component;  and  the  third  element,  a Z-  or  PHI  coordi- 
nate component  The  coordinates  will  be  displayed  at 
(X,Y,Z)  enclosed  in  parentheses  and  separated  by 
commas;  e g.,  (3.8765,1 .5,0  ).  The  precision  and  signifi- 
cant zeroes  options,  described  for  'REAL'  numbers 
above,  both  apply  to  each  component.  Note  that  the 
coordinates  displayed  need  not  be  the  same  values  as 
the  alphanumeric  output  justification  position  parame- 
ters (X,Y,Z). 

‘TEXT’  — The  input  is  a single  variable  or  array  containing  a 

Hollerith  Character  string.  The  string  may  be  as  long  as 
desired  but  must  be  terminated  by  the  GCS  terminator 
character.  This  character,  which  cannot  be  displayed 
while  functioning  as  the  terminator  character,  may  be 
specified  by  UPSET  ('TERMINATOR',  value)  where 
value  is  a one-character  Hollerith  string.  The  default 
GCS  terminator  character  is  the  ASCII  backslash 
(12-8-5)  character.  The  input  string  may  also  contain 
upper  and  lower  case  shifting  characters.  The  case 
shifting  and  scripting  characters  are  described  below. 


‘INTEGER 

■REAL' 


CHARACTER  DESCRIPTION  OPTIONS: 

These  options  specify  the  attributes  of  individual  characters. 


249 


r 


CHARACTER  TYPE: 

There  are  three  basic  types  of  characters  in  GCS.  Each  type  will  be  described 

separately  below.  Figure  2 illustrates  each  type  The  user  can  switch  between  any  of  the 

three  types  simply  by  invoking  the  appropriate  USET  options. 

‘HARDWARE’  — These  characters  are  generated  when  possible  by  a 

hardware  character  generator  in  the  display  device. 
The  size  of  these  character  positions  is  frequently 
limited  to  several  discrete  sizes  (see  Hardware 
Character  Position  Size  below).  The  characters  are 
produced  on  the  display  surface  plane.  This  is  the 
default  character  type.  Character  spacing  is  exact. 
Hardware  character  output  may  be  directed  to  either 
the  ‘MESSAGE  DEVICE’  or  the  PLOTDEVICE’  if  they 
are  separable. 

‘SIMULATED  HARDWARE’  — These  characters  are  produced  via  software.  Al- 
though they  act  as  hardware  characters,  they  are 
generated  to  the  exact  hardware  character  position 
size  (q.v.)  specified  ’SIMULATED  HARDWARE' 
characters  use  the  ‘SOFTWARE’  characters  descrip- 
tions The  characters  are  produced  on  the  display 
surface  plane  Character  spacing  is  exact. 

’SOFTWARE’  — These  characters  are  produced  by  software  vectors 

in  the  current  XY-plane  The  line  which  connects  the 
lower  left  corner  of  each  character  position  in  the 
string  is  parallel  to  the  current  X-axis.  The  string  is 
drawn  in  the  positive  X-direction  for  horizontal 
spacing  and  the  negative  Y-direction  for  vertical 
spacing  (see  Character  spacing).  Both  software 
character  dimensions  may  be  specified  (see  below). 

HARDWARE  CHARACTER  - The  size  of  HARDWARE’  and  SIMULATED 

POSITION  SIZE  HARDWARE’  character  positions  may  be  set  by 

either  USET  or  UPSET  options.  An  exact  size  may  be 
specified  by  the  following  UPSET  options.  For 
hardware  characters,  the  largest  discrete  size  will  be 
used  which  does  not  exceed  the  requested  size.  If  all 
sizes  exceed  the  requested  size,  then  the  smallest 
size  is  used. 

UPSETOXSIZE’, value)  — The  horizontal  character  position  size  is  set  to  the  value 

specified  in  current  ’DEVICE'  space  units 

UPSETCYSIZE’, value)  — The  vertical  character  position  size  is  set  to  the  value  specified 

in  current  'DEVICE'  space  units. 

Four  (4)  discrete  sizes  are  provided  by  USET  options: 

‘SMALL’  — The  hardware  character  position  size  closest  to  typewriter  size  character 
positions.  This  is  the  default. 

’MEDIUM’  —This  is  the  next  larger  size  from  ‘SMALL’.  Simulated  ’MEDIUM’  size  is 
approximately  twice  the  SMALL’  size 

’LARGE'  — This  is  the  next  larger  size  from  MEDIUM'  Simulated  'LARGE'  size  is 

approximately  thiee  Union  the  SMAI  l al to 
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'EXTRALARGE'  — This  is  the  next  larger  size  from  'LARGE'.  Simulated  'EXTRALARGE' 
size  is  approximately  four  times  the  SMALL'  size 

Additional  discrete  sizes  may  be  specified  by: 

UPSETCSIZE', value)  — The  discrete  size  whose  index  is  specified  in  the  value  is 
selected.  Indexes  must  be  positive  values  'SMALL'  through 
'LARGE'  are  represented  by  index  values  1.  through  4 
Assignment  of  sizes  to  remaining  index  values  (i.e.,.LT.4.)  is 
installation  dependent. 

SOFTWARE  CHARACTER  POSITION  SIZE: 

The  size  of  'SOFTWARE'  character  positions  may  be  set  by  the  following  two  UPSET 
options.  The  visible  size  of  software  characters  is  affected  by  scaling  factors  created  by 
U3CSYS  calls  and  by  the  currently  set  viewing  environment.  Software  character 
positions  in  device  space  are  visibly  the  same  size  as  software  character  positions  in 
virtual  space  at  the  view  plane 

UPSETCHORIZONTAL  SIZE' value)  — The  horizontal  size  of  software  character 

positions  is  set  to  the  value  provided  in  current 
user  units.  Default  value  is  5. 

UPSETCVERTICALSIZE', value)  — The  vertical  size  of  software  character  positions  is  set 

to  the  value  provided  in  current  user  units  Default 
value  is  7. 

CHARACTER  POSITION  OCCUPANCY: 

The  proportion  of  the  software  character  positions  to  actually  be  occupied  by  the 
character  may  be  specified  as  follows 

UPSET(‘XPERCENT’,value)  — The  proportion  of  the  width  of  the  character  position  to  be 

occupied  by  the  character  is  set  to  the  value  provided. 
Valid  values  are  greater  than  zero.  A value  of  1 . specifies 
the  entire  width  of  the  character  position.  Default  value  is 
65. 

UPSET('YPERCENT'.value)  — The  proportion  of  the  height  of  the  character  position  to  be 

occupied  by  the  character  is  set  to  the  value  provided. 
Valid  values  are  greater  than  zero  A value  of  1 . specifies 
the  entire  height  of  the  character  position.  Default  value 
is  .65. 

ALPHABETIC  CASE  SHIFTING: 

In  machines  which  have  only  six  bits  per  character,  it  is  still  desirable  in  GCS  to  be  able 
to  specify  both  upper  and  lower  case  characters  since  the  software  character  set  can 
produce  both.  Therefore,  a case  shifting  facility  has  been  implemented  which  not  only 
provides  this  service  for  the  software  characters  but  will  also  work  for  hardware 
characters  on  those  devices  which  have  hardware  character  generators  which  can 
produce  both  cases  Additionally,  since  case  shifting  applies  only  to  uper  case 
characters,  when  a program  which  does  case  shifting  is  executed  on  a computer  which 
does  not  need  case  shifting,  the  desired  upper  and  lower  case  character  will  still  be 
produced 

To  shift  cases,  it  is  necessary  to  insert  special  case  shift  characters  in  the  GCS  text 
string.  GCS  defaults  to  upper  care.  When  the  lower  case  shift  character  inserted  in  the 


string,  a shift  to  lower  case  will  occur  if  GCS  Is  currently  In  upper  case.  If  GCS  is  already 
in  lower  case,  the  shift  character  will  itself  be  generated.  The  opposite  happens  when 
the  upper  case  shift  character  is  inserted  in  the  string.  If  GCS  is  in  lower  case  mode,  it 
will  be  piaced  in  upper  case.  However,  if  GCS  is  already  in  upper  case  mode,  the  upper 
case  shift  character  will  be  generated.  See  Figure  3 for  an  illustration  of  the  use  of  case 
shifting. 

When  changing  cases,  all  alphabetic  characters  will  be  generated  in  either  UPPERCASE 
or  LOWERCASE  as  appropriate.  However,  to  provide  the  full  complement  of  special 
characters  available  in  the  ASCII  character  set  to  persons  with  computers  which  handle 
only  6-bits  per  character  internally,  some  special  characters  will  be  mapped  into  others 
when  the  case  is  changed. 

The  shift  characters  may  be  changed  by  the  following  two  calls 

CALL  UPSETOLOWERCASECHARACTER'.CHAR) 
or 

CALL  UPSET(  UPPERCASECHARACTER'.CHAR) 

Where 

CHAR  is  a single  character  in  Hollerith  (left-justified,  blank-fill)  format.  Thus,  it 
may  be  a literal  (quoted  character  string)  or  a variable  containing  a 
Hollerith  value. 

The  user  is  warned  that  the  shift  character  should  not  be  set  to  be  the  line  terminator 
character.  If  this  happens,  no  case  shifting  will  occur.  The  case  in  which  GCS  is 
currently  set  may  be  forced  to  either  upper  or  lower  case  by  the  following: 

CALL  USET('UPPERCASE') 

CALL  USET('LOWERCASE') 

This  is  convenient  for  setting  the  system  character  for  use  as  CHARACTER  terminators 
in  the  line  option  or  in  building  ALPHA  lines. 

ORIENTATION: 

As  software  characters  are  produced,  they  may  be  ORIENTED'  (tilted)  off  the  X-axis  by 
the  UPSET  option  described  below  For  a string  of  characters  eminating  from  U3PRNT, 
the  lower  left  corner  of  each  character  will  touch  a line  which  is  parallel  to  the  current  X- 
axis.  The  bottom  of  the  character  will  be  rotated  off  this  line  by  the  number  of  angular 
units  specified.  An  illustration  of  this  feature  is  shown  in  Figure  4 

UPSETCORIENTATION', value)  — The  geometric  figure  orientation  parameter  is  set  to  the 

number  of  angular  units  specified  in  the  value.  Default 
value  is  0.  Note  that  the  orientation  parameter  also 
applies  to  UPLYGN  and  URECT. 


ITALIZATION: 

Software  characters  may  be  'ITALICIZED'  by  applying  transformation  which  leans  or 
slants  the  character  away  from  the  vertical  as  illustrated  In  Figure  5.  This  mode  is 
selected  as  follows: 

'ITALICS'  — Software  characters  are  to  be  slanted 

NOITALICS'  — Software  characters  are  not  to  be  slanted  This  ‘s  the  default. 
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ITALIC  SLANT  ANGLE: 


The  amount  of  slant  to  be  applied  to  the  characters  may  bn  specified  by 

UPSETCSLANT', value)  — The  amount  of  slant  from  the  vertical  la  set  to  the  value 

provided  In  current  angular  units  Default  value  Is  approx- 
imately 1 7.5  degrees.  Values  provided  muat  not  be  odd 
multiples  of  90  degrees. 

COORDINATE  SPACE  OPTIONS: 

U3PRNT  can  display  characters  in  either  ‘DEVICE’  or  ‘VIRTUAL’  space.  If  ‘DEVICE’ 
space  is  specified,  all  characters  will  be  subject  to  margining;  i.e.,  all  characters  will  be 
produced  within  the  specified  margins  (see  UMARGN). 

If  ‘VIRTUAL'  space  is  specified,  all  characters  will  be  clipped  at  the  window  boundaries 
(see  UWINDO).  For  ‘HARDWARE’  and  'SIMULATED  HARDWARE’  characters,  clipping 
will  occur  if  any  portion  of  the  character  position  exceeds  the  window  boundaries.  Since 
'SOFTWARE'  characters  are  drawn  with  vectors,  they  will  be  clipped  exactly  at  the 
window  boundaries. 

ALPHANUMERIC  SPACING  OPTIONS: 

Adjacent  character  positions  may  be  defined  to  proceed  either  horizontally  or  vertically. 
This  option  applies  to  all  character  types  and  is  selected  as  follows: 

‘HORIZONTAL’—  Adjacent  character  positions  occur  horizontally;  i.e.,  character  strings 
are  produced  in  the  positive  X direction. 

‘VERTICAL’  — Adjacent  character  positions  occur  vertically;  i.e.,  character  strings  are 
produced  in  the  negative  Y direction. 

ALPHANUMERIC  JUSTIFICATION  OPTIONS: 

The  arguments  to  U3PRNT  contain  a set  of  coordinates  which  indicate  the  justification 
position  for  the  output  string.  Each  justification  option  is  illustrated  in  Figure  9. 
Justification  options  are  as  follows: 


‘LJUSTIFICATION’  — The  coordinates  specify  the  position  of  the  lower  left  corner 
‘NOCENTERING’  of  the  first  character  position  in  the  output  string.  This  is  the 

‘NOJUSTIFICATION'  default. 


— The  coordinates  specify  the  position  of  the  center  of  the 
output  string.  The  output  will  be  centered  both  horizontally 
and  vertically.  The  centering  is  upon  the  unscripted  string 
(see  Subscript/Superscript  Specification  below). 

— The  coordinates  specify  the  position  of  the  lower  left  corner 
of  the  character  position  which  follows  the  last  character  of 
the  string.  Note  that  this  is  also  the  lower  right  corner  of  the 
last  character  position  of  the  string  if  ‘HORIZONTAL’  spacing 
is  specified. 

SUBSCRIPT/SUPERSCRIPT  SPECIFICATION : 

The  primary  means  of  doing  scripting  is  by  the  insertion  in  GCS  text  strings  of  subscript 
and  superscript  escape  characters.  Each  occurrence  of  the  subscript  character  will 
lower  the  position  of  succeeding  characters  1 /3  character  position.  Each  occurrence  of 
the  superscript  character  will  raise  the  position  of  succeeding  characters  1 /3  character 


‘C  JUSTIFICATION’ 
•ACENTERING’ 

‘R  JUSTIFICATION’ 
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position.  When  the  GCS  terminator  character  is  encountered,  the  scripting  level  is 
returned  to  the  zero  position  and  the  pen/beam  position  is  set  for  additional  unscripted 
characters.  (See  Figure  10.)  Note  that  scripting  positions  will  not  be  computed  into 
center  justification  adjustments.  The  subscript  and  superscript  escape  characters  may 
be  specified  by  the  following  UPSET  options: 

UPSETCSUBSCRIPT', value)  — The  subscript  escape  character  is  set  to  the  first 

character  of  the  Hollerith  string  provided  as  a value 
The  default  subscript  character  is  an  ASCII  " ” (0/8/5). 

UPSETOSUPERSCRIPT’, value)  — The  superscript  escape  character  is  set  to  the  first 

character  of  the  Hollerith  string  provided  as  a value. 
The  default  superscript  character  is  an  ASCII  “ ” 
(0/8/5). 


An  alternate  method  of  performing  scripting  is  provided  if  several  successive  output 
strings  are  to  be  scripted.  The  user  may  specify  the  type  of  scripting  and  the  scripting 
level.  The  scripting  level  is  defined  to  be  the  number  of  1/3  character  positions  below 
the  justification  position  for  'SUBSCRIPTING'  and  the  number  of  1 /3  character  positions 
above  the  justification  position  for  'SUPERSCRIPTING'. 


'NOSCRIPTING' 

‘SUBSCRIPTING’ 

'SUPERSCRIPTING' 


— Forced  scripting  is  disabled.  However,  scripting  by 
insertion  of  scripting  escape  characters  can  still  occur. 
This  is  the  default. 

— The  output  string  will  be  produced  starting  at  the 
specified  script  level  position  below  the  justification 
position. 

— The  output  string  will  be  produced  starting  at  the 
specified  script  level  position  above  the  justification 
position. 

Note  that  specification  of  the  type  of  scripting  still 
allows  further  modifications  in  the  scripting  by  insertion 
of  scripting  escape  characters.  To  set  the  scripting 
level,  the  following  UPSET  option  should  be  used: 


UPSETCSCRIPTLEVEL', value)  — The  scripting  level  is  set  to  the  integer  value  specified. 

Note  that  if  a negative  scripting  level  is  provided, 
subscripting  becomes  superscripting  and  vice  versa 


PEN  COORDINATE  OPTIONS: 

All  pen  coordinate  options  apply  to  the  justification  position  contained  in  the  X,Y,Z 
parameters  to  U3PRNT.  The  actual  starting  location  of  the  character  string  may  be 
adjusted  as  required  by  the  justification  option  described  earlier  For  a full  description  of 
the  Pen  Coordinate  Options,  see  U3PEN. 

COORDINATE  SYSTEM  SELECTION  AND  TYPE: 

The  full  power  of  U3PRNT  can  only  be  realized  through  use  of  user  coordinate  systems. 
U3PRNT  produces  ‘SOFTWARE  CHARACTERS'  on  the  XY-plane  which  passes  through 
the  justification  point.  Through  use  of  user  coordinate  systems,  the  user  can  position 
and  orient  the  XY-plane  anywhere  in  3-space.  By  suitable  coordinate  system 
definitions,  'SOFTWARE'  character  output  can  be  made  to  recede  into  the  distance  or  be 
viewed  from  behind.  It  should  be  noted  that  while  ‘HARDWARE’  and  'SIMULATED 
HARDWARE'  characters  can  be  positioned  anywhere  in  3-space,  they  will  still  be 
produced  In  the  display  surface  plane 
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CS.HC.E.71S3 

C3.H*t.7t«,10.5 

Fw— pi*  #f  •'TEXT'  Output 

Aiphonua*r I*  Output  fmrmm km 
Flour*  1 CU9PRNT; 


DIMENSION  COORDOi 

CALL  gJ?Jj£3*,4,K82®'2'7,#Z«',®-/ 

CALL  UPSET  C 'TERMINATOR', ' , 

CALL  USET  C'LARCEO 
CALL  USET  C'ZNTEQER'> 

CALL  UPRINT  C20. ,60. , 123466. > 

CALL  USET  C' REAL' 5 

CALL  UPRINT  C2S. , 46. . COCRDC |» 

CALL  USET  < 'XY COORDINATES'} 

CALL  UPRINT  <20 .,  48 ..  COORD  > 

CALL  USET  < 'XYZCOORDXNATES'  > 

CALL  UPRINT  C2« . , 36 . . COORD} 
ru  i USET  C 'TEXT '3 

<=*-}-  X5?‘J,f“ii2®-'/E>XAHPLE  ^ <"tEXT"  OUTPUT,  O 
CALL  USET  C'ACENTER'} 

call  ifrint  C4«.,M.. '<A>u=raf*»4ERic  <o>utput  <p>ormats,o 

CALL  uro"7  C40' ,5'<F>1CURE  * <CU3PRNT}, '} 

STOP 

END 
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Hardware  Chara*l«r« 


Simulated  Hardware  Character# 

re  Cherecter 

Softvere 


9CS  Ch mrmmkmr  Typ«a 
Fleur*  C CU3PRNTJ 


CALL 


CALL 

CALL 

CALL 

CALL 

CALL 


CALL 


CALL 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

STOP 

END 


U6TART 

UPSET  ('TERMINATOR',  ' j ') 

USET  ('ACENTER') 

UROTAT  (ia.) 

USET  ('EXTRALAR8E') 

UPRINT  (68., 68.,  'H>ARDWARE  <OHARALTERS;  ') 

USET  ('SIMULATED  HARDWARE  CHARACTERS') 

UPSET  ('XSIZE', .26) 

UPSET  ('YSIZE',.4) 

UPWXMT  (68  ■ ,4a.,  ' <8>IMULATED  HARDWARE  (OHARACTERSj') 
USET  ('SOFTWARE  CHARACTERS') 

UPSET  ('HORIZONTAL  SIZE', 4. 6) 

UPSET  ('VERTICAL  SIZE', 7.) 

UPRINT  (68. ,26.,  '<S>OFTWARE  <OHARACTERSj  ' ) 

USET  ('HARDWARE  CHARACTERS* ' ) 

USET  ('LARQE') 

UPRINT  (46., IS., '<OCS  OHARACTER  <T>YPES*') 

UPRINT  (46.,I8.,'<F>ICURE  2 <(U3PRNT), ') 

UEND 


!i 


i 
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NOT  ORIENTED 

Character  Orientation 
Figure  4 CUapRNT} 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

STOP 

END 


U6TART 

UPSET  C 'TERHINATOR'. ' j 
USET  C ' SOFTWARE ' 3 
USET  C'ACENTER'i 

UPRINT  CEO. ,EO.. 'NOT  ORIENTED* '> 

UPSET  C 'ORIENTATION', 20. 3 

UPRINT  CEO. ,40.. 'ORIENTED  20  DEQREES*'3 

USET  C'HARDt|AR£'3 


USET  C'LAR0e'3 
UPRINT  CEO. ,2E. , 
UPRINT  CEO. ,20.. 
UEND 


'OHARACTER  <D>RIENTATXON*  '3 
'<F>ICURE  4 <CU3PRNT3*'3 


I 


;>t»H 


Italics 

No  T t o i i r s 


Example*  of  Ztalt«lutl«n 
Pl«ur*  6 CU3PRNT3 


pai  i USTART 

CALL  UPSET  C' TERMINATOR', ';  '3 
CALL  U6ET  C' ITALICS '3 
CALL  USET  C 'SOFTWARE' 3 
CALL  UPRINT  CZS. ,50.. 'OTALICSj'3 
CALL  USET  C' NOITALICS' 3 

CALL  UPRINT  CZS . . 40 . . ' <NX>  <OTALICS<<  ' 3 

CALL  USET  C' NO CENTER' 3 

CALL  UPRINT  CZS., 30., 'REFLECTIONS; '3 

CALL  UCOSYS  CZS . , 30 . , I . , — I .,0.3 

CALL  UPSET  C' SLANT', 40. 3 

rAi  i USET  C 'ITALICS' 3 

CALL  UPRINT  C0. , 'REFLECTIONS* '3 

CALL  USET  C' WORLD  COORDINATES ' 3 

CALL  USET  C' HARDWARE '3 

CALL  USET  C'ACENTER'3 

pai  i USET  C'LARQE'3 

CALL  UPRINT  C60 .,16.,' E>XANPLES  OF  <I>TALICIZATION* '3 

CALL  UPRINT  C60 . . t 0 . . ' <F>IGURE  6 <CU3PRNT3*'3 

CALL  UEND 

STOP 

END 
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1 


Thla  la 


apl*  «f 
•ar«ln 

Irw. 


Horalnlno 
Plaur*  6 CU9PRNT) 


rAi  i ugTART 

CALL  UPSET  C ' TERMUiATOR  ' , ' , O 
CALL  USET  C 'PERCENT  UNITS' 3 
CALL  UNARON  C 46. .SB. .30. .60.5 
CALL  USET  C'LARQEO 
CALL  USET  C' DEVICE' 3 
CALL  UPKENT  C40.. 46. . 'T>«IS  IS 
CALL  USET  C'ACENTER'5 
CALL  UNARQN  CS. . 100. . S.  , |i 


AN  EXAMPLE  OF  NAR8INXN6. »') 


CALL  UPKPrr  CSS..  16..  ' <K>AR0INXM6,  O 


CALL  UPRINT  CCS. <10. 
CALL  UEMD 
STOP 
END 


%P>ICURE  0 <CU3PRNT5, '5 


H 

0 

* 

e 

M 

A 

R 

9 

Z 

N 

Z 

N 

8 

Vortloai  Spool no  by  ualns  Marslnlr* 
Fl»u*o  7 CU9PRNT3 


r ai  i U6TART 

CALL  UPSET  C' TERMINATOR' „ ' , 
CALL  USET  C' PERCENT  UNITS' 3 
CALL  USET  C' DEVICE') 


'MORE  NAR8XNXNC;  ') 


CALL  UNARGN  CS9. .53.5.20. 

CALL  USET  C'LARSE') 

CALL  UPRZNT  <59..  69., 

CALL  USET  t' A CENTER') 
r ai  i umarqn  ca  taa  a iaa  i 

CALL  UPRZNT  <59., IS., 'V>ERTZCAL  <S>PACXN6  BY  USXN6  <M>AR8XN3NC 
CALL  UPRZNT  CS8 .,19.,' <F>I6UR£  7 CCU3PRNT),') 

CALL  UEND 

STOP 

END 


t 
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pai  i U6TART 

CALI.  UPSET  C'TERNINATOR'.'iO 
CALL  U6ET  C' PERCENT  UNITS '3 
CALL  UDAREA  CSS., OS. ,36.,66.:> 

CALL  UOUTLN 

r?Ai  i user  C'EXTRALAROE') 

CALL  UPRINT  C-IO..«a., 'W>INDOWINC  OP  HARDWARE  CHARACTERS!  O 
CALL  USET  C' SOFTWARE  CHARACTERS'* 
r ai  i USET  C 'A CENTER'  3 

CALL  UPRINT  CAS . , 40 . , ' <V>XNDOWXNS  OP  SOFTWARE  CHARACTERS! '* 
rAi  i USET  C' DEVICE' * 

CALL  USET  C' HARDWARE  CHARACTERS' 5 
nil  i USET  C'LAROE'  * 

CALL  UPRINT  C60 . „ 2S . . ' <E>XAHPLES  OP  <W>1ND0WINC  OP  COHARACTERS 

CALL  UPRINT  C68 . , 20 . , ' <F>IGURE  8 <CU3PRNT*; ' 5 

CALL  UEND 

STOP 

END 
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CENTER-^* 


TZFZED 


RXSHT-JUSTIFIED. 


t 


CALL 

CALL 

CALL 

CALL 

CALL 


CALL 

CALL 

CALL 

CALL 

CALL 


CALL 


STOP 

END 


Ou>tlftoat1«i  Optlona 
Pl«ur«  S CU9PRNT0 


U6TART 

UPSET  C'TERNINAT0R',',O 
USCT  C'LAROEO 
U6ET  C'LARROW') 

UNOVE  CSS. .46.) 

UPEN  CSS., 68. > 

uprint  C68.,S8.. 'LETT-UUSTIPIED, '> 

USET  C'CJUSTXFXCATXON') 

UNOVE  CSS. ,36.) 

UPEN  C60. , 48.  > 

UPRINT  CSS., 49., 'CENTER— UUSTXFIEPt ') 

USET  C ' RJUSTXFTCATION  ' ) 

UNOVE  CSS. ,26. > 

UPEN  CSS. .38.) 

UPRINT  CS8..S8., 'RISHT-UUSTIFIED,') 

USET  C ' CJUSTZFZCATXON ' ) 

UPRINT  C69. , IS. , 'vDUSTIFICATXON  <0M>TC0N8j  ') 
UPRINT  CSS .,19.,' <F>Z6URE  8 <CU3PRNT)j ') 
UEND 
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H 


50  Character  string  1 

Bo  Ctweotor  String  ® 


30  Software  Character  String  Or  I an tat  Ion 
Plgura  It  CU9PRNT) 


4 


PAI I USTART 

CAi_L  UPSET  C'TERHINATOR',  '»') 

CALL.  USET  C'LARBEO 
r ai  i USET  C'ACENTERO 

CALL  UPRIKT  CEO. , 15. . /3D  S>0FTWAR£  <OHARACTER  CS>TRJW6  <0>RXEN 
ATATCOH, O 

CALL  UPKENT  CSS . , 1 8 . , 7 <F>ICURE  II  CCU3PRNT),7) 

CALL  USET  C' SOFTWARE  CHARACTERS7) 

CAL'.  UWZNPO  C-ISS.,  188. ,-ISS. , 188.) 

CALL  (J9PRHT  <8. ,9. .8.  . 7 SO  OHARA CTER  CS>TRXNC  1,0 
CALL  U9PRHT  C8.  ,-38. , -58.  , 7 <30  OHARACTER  <S>TRJHS  2,7) 

CALL  U3CSYS  C -38..  48.,  38.,  I.. I.. I.. 46. .76. .46.) 

CALL  U3PRNT  C8..8..3.,  7 <X>  OHARACTER  <S>TRXN6  3/3 
CALL  U9CSYS  CSS. ,58. ,— 18. , -I , . — I . , I . ,8.,8.,-29. ) 

CALL  U3PRHT  C8..9..8.,  '<30  OHARACTER  <S>TR3NG  4,7) 

CALL  UEND 

STOP 

END 
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Subroutine  U3ROTA 


3D 


FUNCTION: 


This  routine  builds  a new  coordinate  system  with  origin  at  the  current  pen  position 
rotated  by  the  specified  amount  about  each  axis. 

CALLING  SEQUENCE: 

CALL  U3ROT A(RX,RY,RZ) 

Where 

RX,RY,RZ  indicates  the  amount  of  rotation  around  each  of  the  axeo  in  current  angular 
units. 

OPTIONS: 

Rotation  Application  Order:  See  U3CSYS 

COMMENTS: 

This  routine  causes  a new  coordinate  system  to  be  built  with  origin  at  the  current  beam 
position  and  with  a scale  factor  of  1 along  each  axis.  A full  description  of  the  user 
coordinate  system  facility  can  be  found  in  the  U3CSYS  writeup  and  in  the  UCOSYS 
writeup. 


Programming  Notes: 


CALL  USTART 

CALL  UNOVE  C60..76.7 

CALL  UROTAT  <8.7 

CALL  UPLYuN  <0..8.,3., 18.7 

CALL  UROTAT  068.7 

CALL  UPLYQN  C8.,8.,3..  18.7 

CALL  USET  C 7 WORLD  COORDINATES7 7 

CALL  UNOVE  CZS. *2C  3 

CALL  U9R0TA  <76. .0.. 0.7 

CALL  UPLYQN  <8. ,8. .4., 18.7 

CALL  USET  < 7 WORLD  COORDINATES7 7 

CALL  UNOVE  <75. .26. 7 

CALL  U3R0TA  <8. .46. ,0.7 

CALL  UPLYQN  <8. .8. . 4. , 10. 7 

CALL  UEND 

STOP 

END 
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Subroutine  U3SCAL  3D 

FUNCTION: 

This  routine  composes  a new  coordinate  system  with  the  origin  at  the  current  beam 
position  and  scaled  as  specified  along  each  axis. 

CALLING  SEQUENCE: 

CALL  U3SCAL(SX,SY,SZ) 

Where 

SX,SY,SZ  are  the  multiplicative  scale  factors  along  each  axis  respectively. 

OPTIONS: 

None. 

COMMENTS: 

The  rotation  factors  used  in  composing  the  new  scaled  coordinate  system  are  0.  around 
each  axis.  See  the  U3CSYS  and  UCOSYS  writeup  for  a full  description  of  the  user 
coordinate  system  facility. 

Programming  Notes: 

I 

ti 


( 
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I 

Subroutine  U3STUD  3D 

FUNCTION: 

This  routine  returns  to  the  user  the  limits  of  his  3-D  U3WNDO  and  U3AREA. 

CALLING  SEQUENCE: 

CALL  U3STUD  (ARRAY) 

Where 

ARRAY  is  an  array  of  at  least  twelve  words  to  contain  the  current  settings. 

OPTIONS  which  may  apply: 

Device  Units:  •INCHES’,  ■CENTIMETERS’,  ‘PERCENT’,  ’FONT',  ‘RASTER’,  ‘SPECIFICA- 
TION’ 

COMMENTS: 

A call  to  this  routine  will  return  to  the  user  the  limits  of  his  3-D  virtual  window  and  display 
area  in  the  order: 

ARRAY  (1)  = virtual  X minimum  boundary 
ARRAY  (2)  = virtual  X maximum  boundary 
ARRAY  (3)  = virtual  Y minimum  boundary 
ARRAY  (4)  - virtual  Y maximum  boundary 
ARRAY  (5)  = virtual  Z minimum  boundary 
ARRAY  (6)  = virtual  Z maximum  boundary 
ARRAY  (7)  — device  X minimum  boundary 
ARRAY  (8)  = device  X maximum  boundary 
ARRAY  (9)  = device  Y minimum  boundary 
ARRAY(IO)  = device  Y maximum  boundary 
ARRAY(1 1)  = device  Z minimum  boundary 
ARRAY(12)  - device  Z maximum  boundary 

To  recover  only  the  2-D  boundaries,  see  USTUD 


Programming  Notes: 


i 
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Subroutine  U3WHER 


3D 


FUNCTION: 

This  routine  returns  the  three-dimensional  coordinates  of  the  pen  position  in  current 
units. 

CALLING  SEQUENCE: 


Where 

X,Y,Z 


CALL  U3WHER(X,Y,Z) 


will  contain  the  pen  position  coordinates  in  current  units  upon  exit  from 
this  rotation. 


OPTIONS: 

Pen  Coordinate  Options,  see  U3PEN 

COMMENTS: 

The  coordinates  returned  will  always  indicate  'ABSOLUTE’  position  in  the  current 
coordinate  system  since  the  'RELATIVE'  position  is  always  (0.,0.,0). 


Programming  Notes: 
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Subroutine  U3WND0 


3D 


FUNCTION: 

This  routine  specifies  the  boundaries  of  the  user  window  in  virtual  3-space. 

CALLING  SEQUENCE: 

CALL  U3WNDO(XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX) 

Where 

XMIN  is  the  minimum  X-boundary  of  the  desired  new  window. 

XMAX  is  the  maximum  X-boundary  of  the  desired  new  window. 

YM1N  is  the  minimum  Y-boundary  of  the  desired  new  window. 

YMAX  is  the  maximum  Y-boundary  of  the  desiied  new  window. 

ZMIN  in  the  minimum  Z-boundary  of  the  desired  new  window. 

ZMAX  is  the  maximum  Z-boundary  of  the  desired  new  window. 

OPTIONS  which  may  apply: 

Z-axis  clipping:  ‘NOZCLIPPING’,  'ZCLIPPING' 

COMMENTS: 

The  concept  of  windowing  into  virtual  space  expands  greatly  the  capabilities  of  the  user. 
In  three-dimensional  space,  the  user  is  assumed  to  be  located  somewhere  in  virtual 
space  (i.e.,  at  the  view  point)  and  looking  in  some  direction  (i.e„  toward  the  view  site)  (see 
UVIEW).  Normally,  he  is  only  interested  in  a particular  subset  of  all  the  space  within  his 
field  of  view.  This  subset  is  specified  by  the  U3WNDO  routine.  The  portion  of  the  user's 
picture  which  is  within  the  boundaries  of  the  window  will  be  projected  onto  a plane 
perpendicular  to  the  viewing  vector  and  in  front  of  the  wer.  This  plane  is  known  as  the 
view  plane  (See  UVWPLN).  The  X and  Y window  boundaries  refer  to  lines  on  the  view 
plane  which  form  a rectangle.  The  Z window  boundaries  indicate  the  portion  of  space  in 
front  of  the  viewer  to  be  projected  onto  the  plane  if  ZCLIPPNG'  has  been  specified 
Normally,  'NOZCLIPPING'  is  specified,  in  which  case  all  lines  which  are  projected  onto 
the  view  plane  within  the  X and  Y window  boundaries  are  visible 

Subroutine  U3WNDO  will  generate  an  error  condition  if  the  maximum  boundary  is 
specified  less  than  or  equal  to  the  minimum  boundary  and  the  previous  setting  of  the 
window  will  be  retained. 

Programming  Notes: 


d 
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Subroutine  U 3 WRIT 


3D 


L 


FUNCTION: 

This  routine  displays  textual  output  at  the  pen  position  specimen  in  three-space.  The 
pen  will  be  repositioned  to  the  location  it  was  at  prior  to  the  call  to  U3WRIT. 

CALLING  SEQUENCE: 


CALL  U3WRIT(X,Y,Z,OATA) 


Where 

X,Y,Z  are  the  coordinates  of  the  beginning  of  the  alphanumeric  output  in  current 

units. 

DATA  is  a GCS  Hollerith  character  string  terminated  by  the  GCS  terminator 

character  if  'TEXT'  is  specified. 

is  a REAL  variable  or  literal  if  'INTEGER'  or  'REAL'  is  specified, 
is  a REAL  array  of  two  elements  if  'XYCOORDINATES'  is  specified, 
is  a REAL  array  of  three  elements  if  'XYZCOORDINATES'  is  specified. 

OPTIONS: 


Coordinate  Space  Options: 
Alphanumeric  Character  type. 
Alphanumeric  Output  type: 
Alphanumeric  Spacing  Option: 


See  U3PRNT 
See  U3PRNT 
See  U3PRNT 
See  U3PRNT 


COMMENTS: 


This  routine  only  differs  from  U3PRNT  in  the  position  of  the  pen  at  return  from  the 
routine.  U3PRNT  leaves  the  beam  positioned  at  the  end  of  the  text  output.  U3WRIT 
returns  the  pen  to  the  position  it  held  before  entry  to  U3WRIT.  For  a full  discussion  of  the 
various  U3WRIT  options,  see  U3PRNT. 


Programming  Notea: 
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